育才学习网1. 怎么写一段excel vba 输入代码
1. 从Excel工具栏中插入一个VBA的控件-编辑框。
2. 双击这个编辑框，进入VBA编程窗口。
3. 删除原来的所有内容，输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = TextBox1.Text
End Sub
4. 关闭编程窗口，回到Excel界面。
5. 在编辑框中输入一个字串。
6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1
2. excel vba 这段代码怎么写
好了写完了。
7a686964616fe58685e5aeb931333236373264注，原数列必须要A列，代码加入后，在excel中双击就可以了。Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)i = 1newi = 1newj = 1Do While (IsNumeric(ActiveSheet.Cells(i, 1))) And (CStr(ActiveSheet.Cells(i, 1)) <> "")If CInt((i - 1) / 9) = (i - 1) / 9 Then ActiveSheet.Cells(newi, newj) = ActiveSheet.Cells(i, 1) newi = newi + 1Else ActiveSheet.Cells(newi, newj) = ActiveSheet.Cells(i, 1) If newj < 4 Then newj = newj + 1 Else newj = 1 newi = newi + 1 End IfEnd Ifi = i + 1LoopFor x = newi To i ActiveSheet.Cells(x, 1) = ""NextEnd Sub。
3. EXCEL VBA 写代码
function inputf() as string a = inputbox（"请输入："） if a<>"" then inputf = a range("B3") = a else exit function end ifend function'在keypress的时候调用上面的函数function mysum(a as integer,b as integer) as integer dim c as integer i=a do while i<=b c=c+i i= i+1 loop mysum = cend function'在其他函数里面执行 msgbox(mysum(1,5))。
4. 求助vba代码该怎么写,把excel内容写入txt
用法：运行代码，结果会生成在excel所在的文件夹下面的output.txt中。如果想指定运算区域，则将，选中你想要挑选的区域，'Set zon = Application.InputBox("please choose the zone", Type:=8)前的 ' 去掉然后添加到 Set zon = Range("A1:Z1000")前面。
Sub output()
Dim zon As Range
Dim ttr, ttc As String
Open ThisWorkbook.Path & "\output.txt" For Output As #1
Set zon = Range("A1:Z1000")
'Set zon = Application.InputBox("please choose the zone", Type:=8)
For Each Rng In zon
If Rng.Font.Color = 255 Then
ttr = Cells(Rng.Row, 1)
ttc = Cells(1, Rng.Column)
Print #1, ttr, ttc, Rng
End If
Next
Close #1
End Sub
转载请注明出处育才学习网 » vbaexcel代码怎么写