带你入门VBA系列之：不懂的代码快点贴过来

凡人无忧

请老师有空时帮我解一下这个代码：

Sub yy()
Static b
Dim i As Long, k As Long, a(1 To 16)
For j = 1 To 16
a(j) = Range("d" & j + 3)
Next j
If Join(a) = b Then
MsgBox "重复": Exit Sub
Else
b = Join(a)
With Sheet2
k = .[B65536].End(xlUp).Offset(1, 0).Row
For j = 1 To 16
.Cells(k, j + 1) = a(j)
Next
End With
End If
End Sub

maqingkui

Sheet2.Cells(i, 1) = TextBox1.Value
 Sheet2.Cells(i, 2) = TextBox2.Value
 Sheet2.Cells(i, 3) = TextBox3.Value
 Sheet2.Cells(i, 4) = TextBox4.Value
 Sheet2.Cells(i, 5) = TextBox5.Value
 Sheet2.Cells(i, 6) = TextBox6.Value
 Sheet2.Cells(i, 7) = TextBox7.Value
 Sheet2.Cells(i, 8) = TextBox8.Value
 Sheet2.Cells(i, 9) = TextBox9.Value
 Sheet2.Cells(i, 10) = TextBox10.Value

能否用循环语句简化写？

maqingkui

 Sheet2.Cells(i, 1) = TextBox1.Value
 Sheet2.Cells(i, 2) = TextBox2.Value
 Sheet2.Cells(i, 3) = TextBox3.Value
 Sheet2.Cells(i, 4) = TextBox4.Value
 Sheet2.Cells(i, 5) = TextBox5.Value
 Sheet2.Cells(i, 6) = TextBox6.Value
 Sheet2.Cells(i, 7) = TextBox7.Value
 Sheet2.Cells(i, 8) = TextBox8.Value
 Sheet2.Cells(i, 9) = TextBox9.Value
 Sheet2.Cells(i, 10) = TextBox10.Value

能否用循杯语句简化？

maqingkui

 Sheet2.Cells(i, 1) = TextBox1.Value
 Sheet2.Cells(i, 2) = TextBox2.Value
 Sheet2.Cells(i, 3) = TextBox3.Value
 Sheet2.Cells(i, 4) = TextBox4.Value
 Sheet2.Cells(i, 5) = TextBox5.Value
 Sheet2.Cells(i, 6) = TextBox6.Value
 Sheet2.Cells(i, 7) = TextBox7.Value
 Sheet2.Cells(i, 8) = TextBox8.Value
 Sheet2.Cells(i, 9) = TextBox9.Value
 Sheet2.Cells(i, 10) = TextBox10.Value

用循环语句如何写？

gzxw

不错,我也有一个问题想请教一个:

在EXCEL工作表中,A,B两列,通过设置公式取出某个汉字的拼音第一个字母,如最后的公式

  A  C
1 吖 A
2 八 B
3 嚓 C
4 咑 D
5 鵽 E
6 发 F
7 猤 G
8 铪 H
9 夻 J
10 咔 K
11 垃 L
12 嘸 M
13 旀 N
14 噢 O
15 妑 P
16 七 Q
17 囕 R
18 仨 S
19 他 T
20 屲 W
21 夕 X
22 丫 Y
23 帀 Z

要求"普"的第一个拼音字母,可在工作表中设置公式,如

=VLOOKUP("普",{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"},2)

可以得出 "P"

但我想在Excel中VBA里设置一个自定义数组函数,可是老设置不好,请各位老师帮帮忙!

[em03][em03]

maqingkui

Cells(s(i), 3) = Val(Sheet1.OLEObjects("TEXTBOX" & i + 2).Object.Text)

表示：第s(i)行第3列的值等于表SHEET1的名为“TEXTBOX" & i + 2  的 OLE对象的值。

问：第s(i)行第3列的值等于用户窗体USERFOM1的名为“TEXTBOX" & i + 2  的 OLE对象

    的值又如何编写上面的语句呢？ 多谢！

tengsz

锁定单元格区域的代码知道，如：

Sheet1.ScrollArea = "A1:T22"

请问：解除上述单元格区域锁定代码如何写？

Long_III

QUOTE:

以下是引用凡人无忧在2007-1-14 11:08:20的发言：

请老师有空时帮我解一下这个代码：

Sub yy()
Static b '
Dim i As Long, k As Long, a(1 To 16)
For j = 1 To 16
a(j) = Range("d" & j + 3)
Next j
If Join(a) = b Then
MsgBox "重复": Exit Sub
Else
b = Join(a)
With Sheet2
k = .[B65536].End(xlUp).Offset(1, 0).Row
For j = 1 To 16
.Cells(k, j + 1) = a(j)
Next
End With
End If
End Sub

这个代码比较不好解释，整体的意思是：有一个静态数组b，它保存了单元格[d4：d19]的值，代码运行之后，重新比较这个数组b跟这个单元格区域的值，如果发生了变化，则b改为最新的区域值，然后sheet2表里最后一列来记录最新的区域值

Long_III

QUOTE:

以下是引用gzxw在2007-1-15 16:18:42的发言：

不错,我也有一个问题想请教一个:

在EXCEL工作表中,A,B两列,通过设置公式取出某个汉字的拼音第一个字母,如最后的公式

  A  C
1 吖 A
2 八 B
3 嚓 C
4 咑 D
5 鵽 E
6 发 F
7 猤 G
8 铪 H
9 夻 J
10 咔 K
11 垃 L
12 嘸 M
13 旀 N
14 噢 O
15 妑 P
16 七 Q
17 囕 R
18 仨 S
19 他 T
20 屲 W
21 夕 X
22 丫 Y
23 帀 Z

要求"普"的第一个拼音字母,可在工作表中设置公式,如

=VLOOKUP("普",{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"},2)

可以得出 "P"

但我想在Excel中VBA里设置一个自定义数组函数,可是老设置不好,请各位老师帮帮忙!

[em03][em03]

直接在自定义函数里调用Vlookup函数application.worksheetfunction.vlookup()

感觉没有写自定义函数的必要

Long_III

QUOTE:

以下是引用maqingkui在2007-1-15 20:29:38的发言：

Cells(s(i), 3) = Val(Sheet1.OLEObjects("TEXTBOX" & i + 2).Object.Text)

表示：第s(i)行第3列的值等于表SHEET1的名为“TEXTBOX" & i + 2  的 OLE对象的值。

问：第s(i)行第3列的值等于用户窗体USERFOM1的名为“TEXTBOX" & i + 2  的 OLE对象

    的值又如何编写上面的语句呢？ 多谢！

for i = 1 to 10

debug.print userform1.controls("textbox" & i)

next