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

常回家

新年第一惑，这是论坛中的一个实例代码，烦请老师解释一下：

Private Sub cmdBegin_Click()
    Dim Count As Long, n As Long, k As Long
    Dim step As Double, Span_x As Double
   
    frmCycle.Hide
    Count = 0
   
    If (txtCycle.Text = "") Then
        n = 1
        Else
        n = CInt(txtCycle.Text)
    End If
   
    step = Range("step").Value
    Span_x = Range("last.x").Value - Range("first.x").Value
    k = n * Span_x / step
   
        Do
            m = Int(n - n * Count / k) + 1
            Range("G14") = m
            Count = Count + 1
            Calculate
        Loop Until Count = Int(n * Span_x / step)
       
    frmCycle.Show
    txtCycle.Text = ""
    Range("G14") = ""
   
End Sub

Private Sub cmdExit_Click()
    Unload frmCycle
End Sub

huangmeng

终于找到一位好老师了。请教如下代码的注释：

Private Sub Worksheet_Change(ByVal Target As Range)
Call ZDY_H(Target)
End Sub

Private Sub Worksheet_Deactivate()
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call RLSR(Target)
End Sub

Private Sub Calendar1_DblClick()
Calendar1.Visible = False
ActiveCell = Calendar1.Value
End Sub

Sub RLSR(DY As Range)
Dim LH As Long
HH = DY.Row
LH = DY.Column
If HH < 12 Then Exit Sub
With ActiveSheet
    If (LH = 5 Or LH = 9) And .Cells(HH, 15).MergeCells Then
        .Calendar1.Visible = True
        .Calendar1.Top = DY.Offset(1, 0).Top
        .Calendar1.Left = Cells(ActiveCell.Row, ActiveCell.Column + 1).Left
        If Len(ActiveCell) = 0 Then
        .Calendar1 = Now()
        Else
            .Calendar1 = ActiveCell
        End If
    Else
        .Calendar1.Visible = False
    End If
End With
End Sub

Sub RLSRA(DY As Range)
Dim LH As Long
HH = DY.Row
LH = DY.Column
With ActiveSheet
    If LH = 2 And HH > 3 Then
        .Calendar1.Visible = True
        .Calendar1.Top = DY.Offset(1, 0).Top
        .Calendar1.Left = Cells(ActiveCell.Row, ActiveCell.Column + 1).Left
        If Len(ActiveCell) = 0 Then
        .Calendar1 = Now()
        Else
            .Calendar1 = ActiveCell
        End If
    Else
        .Calendar1.Visible = False
    End If
End With

ahzy2002

char函数对字母只能得出26个如A~Z,如果需要得出AG,CD等工作表列标,用什么函数

向您问好

这个贴子真好，希望能持续下去　

mengjw0163

老师您好!

我对VBA很有兴趣,但不知道如何学习,如怎样给控件命名

Long_III

QUOTE:

以下是引用小答应在2006-12-31 15:30:33的发言：

Private Sub Frame2_Click()
    ActiveWorkbook.Names.Add Name:="ListValue", RefersToR1C1:= _ 

        "=OFFSET(Columns!R2C1,,,COUNTA(Columns!C1)-1,3)" '工作薄里新增一个名称listvalue，对应的函数范围为“a2：c”最后一非空单元格
 Dim Erow As Integer
     Erow = Worksheets("Columns").Range("A65536").End(xlUp).Row '这句在这里没有用处，它求的是工作表columns里的a列的最后一个非空单元格（类似选中a65536单元格，按Ctrl＋向上箭头）
 With Me.ListBox1 '窗体里的列表框（代码在窗体下面，ME表示窗体，在工作表下面，ME表示当前工作表）
    .ColumnCount = 3 '列表框为3列
    .BackColor = &HFFFF00 '设置颜色
    .ColumnHeads = True '有标题
    .ColumnWidths = "80,50,30" '每列的列宽
    .RowSource = Range("ListValue").Address(External:=True) '对应的范围，也就是之前命名的名称listvalue
 End With
End Sub

能不能帮我解释一下这段代码?

FYI

Long_III

To 常回家 and huangmeng，

你好，这样的代码很难直接解释，需要看原始文件，知道它的目的才方便解释

建议向原作者请教或，上面附件说明

Long_III

QUOTE:

以下是引用ahzy2002在2007-1-5 14:20:12的发言：
char函数对字母只能得出26个如A~Z,如果需要得出AG,CD等工作表列标,用什么函数

Sub hjs()
    Dim s As String

    s = Cells(1, 200).Address(1, 1)
    Debug.Print s, Split(s, "$")(1)

    s = Cells(1, 200).Address(1, 0)
    Debug.Print s, Split(s, "$")(0)
End Sub

类似思路，可参考split函数的帮助。根据列数200得到其地址$GR$1，split按$分开

Long_III

QUOTE:

以下是引用mengjw0163在2007-1-6 14:23:19的发言：

老师您好!

我对VBA很有兴趣,但不知道如何学习,如怎样给控件命名

如下图：

blue_prince

 Range("A1").Select
    ActiveCell.FormulaR1C1 = "时间"
    Range("A2:a" & (count - 1)).Select
    Selection.FormulaR1C1 = "=DATE(2006,RC[1],RC[2])"
   
    Range("A1:P20").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range( _
        "E2"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1

请教各位，以上代码是什么意思呀，我只明白选 中A1,而后面就不懂了