簡單的問題,可是我不會

jack5d

問題很簡單,但用VB寫出來就不會了

我做一個commandbutton,點一下A1=B1,再點一下A2=B1,再點一下A3=B1.......A10=B1

但不能點一下就把A1到A10都填上B1...我想做的結果是點一下就出現下一個,再點一下又出現下一下,
到A10時再點就會返回A1(其他A2~A10會改為空值)

謝謝,指點一二
+++++++++++++++++++++++++++++++++++++++++++++
補上了文件~幫忙指點一下~

[ 本帖最后由 jack5d 于 2010-10-31 10:46 编辑 ]

yrysf

繁体字看不懂!

junt7

二楼的也是繁体字我也看不懂····

香川群子

Sub Button1_Click()
    '定义并储存记忆变量K
    Static K

     '如果K为空，或K=10则从A1开始
     If K = "" Or K = 10 Then K = 0   

     '先清空A1:A10范围
     [a1:a10] = "" '
   
     ‘按记忆变量K的数值，在相应A1：A10中的第K+1位置填入数值   
      [a1].Offset(K, 0) = [b1]
      
      ’记忆变量K值加1，以便下次按按钮时可以继续。
      K = K + 1
     
End Sub

jack5d

TO:香川群子
但有一個問題,如果按到A4時,我把A4刪去,再按BUTTON,結果A4會空掉,而A5會有值,能否做到後一行+1填入B1值?我是這樣想的...用[a65536].End(xlUp).Row()???但詳細我不太會寫..唉!

香川群子

原帖由 jack5d 于 2010-10-28 16:28 发表
TO:香川群子
但有一個問題,如果按到A4時,我把A4刪去,再按BUTTON,結果A4會空掉,而A5會有值,能否做到後一行+1填入B1值?我是這樣想的...用[a65536].End(xlUp).Row()???但詳細我不太會寫..唉!

你的想法比较奇怪，我是没理解……

你如果自己不会写代码，要别人帮，那么请你上传个附件，
在附件里把各种要求和结果写清楚，或模拟出你想要的正确结果来。

jack5d

已經補上文件了~謝謝!

香川群子

Sub CommandButton1_Click()
    For i = 1 To 7
        If [i12].Offset(-i, 0) = "" Then
            [i12].Offset(-i, 0) = [a2]
            [i12].Offset(-i, 1) = [d2]
            [i12].Offset(-i, 0).Resize(1, 2).Font.ColorIndex = 43
            Exit Sub
        End If
    Next
    [i5:j11] = ""
End Sub
Sub CommandButton2_Click()
    For i = 1 To 7
        If [i12].Offset(-i, 0) = "" Then
            [i12].Offset(-i, 0) = [a3]
            [i12].Offset(-i, 1) = [d3]
            [i12].Offset(-i, 0).Resize(1, 2).Font.ColorIndex = 3
            Exit Sub
        End If
    Next
    [i5:j11] = ""
End Sub
Sub CommandButton3_Click()
    For i = 1 To 7
        If [i12].Offset(-i, 0) = "" Then
            [i12].Offset(-i, 0) = [a4]
            [i12].Offset(-i, 1) = [d4]
            [i12].Offset(-i, 0).Resize(1, 2).Font.ColorIndex = 41
            Exit Sub
        End If
    Next
    [i5:j11] = ""
End Sub

jack5d

成了成了~謝謝你呀!香川群子小姐