用在Excel里的VB疑问。。

小盐子

用在Excel里的VB疑问。。是这样的我想用来做ACCOUNT这样会比教放便，我首先会在sheet2打上资料让后按buttom后资料就会update去其它2个的sheet。VB我不大会，写的coding不会执行。。有谁可以帮我看看有什么须要改的吗？谢谢你们先。。

Private Sub Bank()
Dim bankrange As Range
If Sheet2.Range("B8") = "Bank" Then
    Set bankrange = Range("Bank!A3:A1000")
    For i = 1 To 1000
        With bankrange
            If .Cells(i, 1) = "" Then
                .Cells(i, 2).Value = Sheet2.Range("D10").Value
                .Cells(i, 3).Value = Sheet2.Range("D11").Value
                .Cells(i, 4).Value = Sheet2.Range("D12").Value
                .Cells(i, 6).Value = Sheet2.Range("D13").Value
                Exit For
            End If
        End With
    Next i
Dim purchasesrange As Range
If Sheet2.Range("D12") = "Purchases" Then
    Set purchasesrange = Range("Purchases!A3:A1000")
    For i = 1 To 1000
        With purchasesrange
            If .Cells(i, 1) = "" Then
                .Cells(i, 2).Value = Sheet2.Range("D10").Value
                .Cells(i, 3).Value = Sheet2.Range("D11").Value
                .Cells(i, 4).Value = Sheet2.Range("B8").Value
                .Cells(i, 5).Value = Sheet2.Range("D13").Value
                Exit For
            End If
         End With
    Next i

Call Clear
End Sub

Sub Clear()
End Sub
    Sheet2.Select
    Sheet2.Range("clear").Select
    Selection.ClearContents

Super-Tomato

原帖由 小盐子 于 2009-4-7 03:46 PM 发表
用在Excel里的VB疑问。。是这样的我想用来做ACCOUNT这样会比教放便，我首先会在sheet2打上资料让后按buttom后资料就会update去其它2个的sheet。VB我不大会，写的coding不会执行。。有谁可以帮我看看有什么须要改 ...

http://www.anthony-vba.kefra.com/vba/vbabasic1.htm
參考教學吧

小盐子

谢谢你了!我会去參考的,你可以帮我看看这个coding哪里出问题吗?

Super-Tomato

原帖由 小盐子 于 2009-4-7 04:29 PM 发表
谢谢你了!我会去參考的,你可以帮我看看这个coding哪里出问题吗?

1. 沒判斷的結束點 If ... Then ... End If
If Sheet2.Range("B8") = "Bank" Then
If Sheet2.Range("D12") = "Purchases" Then

2. 注意函數的使用 Sub ... End Sub

小盐子

If Sheet2.Range("B8") = "Bank" Then(原来不是这样写,我要做的是如果B8="Bank"的话就把资料update去以下的sheet,要怎样写才对的?它才会Update去以下的sheet?)
    Set bankrange = Range("Bank!A3:A1000")
    For i = 1 To 1000
        With bankrange
            If .Cells(i, 1) = "" Then
                .Cells(i, 2).Value = Sheet2.Range("D10").Value
                .Cells(i, 3).Value = Sheet2.Range("D11").Value
                .Cells(i, 4).Value = Sheet2.Range("D12").Value
                .Cells(i, 6).Value = Sheet2.Range("D13").Value
                Exit For
            End If

[ 本帖最后由 小盐子 于 2009-4-7 09:15 PM 编辑 ]

Super-Tomato

原帖由 小盐子 于 2009-4-7 09:14 PM 发表
If Sheet2.Range("B8") = "Bank" Then(原来不是这样写,我要做的是如果B8="Bank"的话就把资料update去以下的sheet,要怎样写才对的?它才会Update去以下的sheet?)
    Set bankrange = Range("Bank!A3:A1000")
  ...

你自己回顧一下 IF 的結構是怎樣的, 有開始沒結束的程式要電腦怎麼去執行
如果你是從別的例子剪剪貼貼過來的話, 麻煩檢查一下自己遺漏了些甚麼