VBcode

kbchong

原帖由 goatstudio 于 28-5-2006 12:46 AM 发表


On Error Goto 很好用, 但应尽量少用, 因为会导致你的 code 乱七八糟.

例子:

Function DoSomething ()

  On Error GoTo ErrHandler1

    ' do something

  Exit Fucntion ' 一定要放这个, 否则 ...

Private Sub CommandButton1_Click()


Dim i As Integer

For i = 1 To 5

Function Dosomething()
  
  On Error GoTo ErrHandler1


Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) + Sheets("sheet1").Cells(i, 2)


Next i
Exit Function

End Function

ErrHandler1:
  
    MsgBox "key in the number"
End Sub


帮我看看问题出在哪！！谢谢。

goatstudio

原帖由 kbchong 于 28-5-2006 05:24 PM 发表

Private Sub CommandButton1_Click()


Dim i As Integer

For i = 1 To 5

Function Dosomething()
  
  On Error GoTo ErrHandler1


Sheets("sheet1").Cells(i, 3) = Sheets(" ...

sub 和 function 不同, sub 里不能有 function, function 里也不能有 sub.
这情况下, 你可以不用 function.

kbchong

原帖由 goatstudio 于 28-5-2006 05:32 PM 发表


sub 和 function 不同, sub 里不能有 function, function 里也不能有 sub.
这情况下, 你可以不用 function.

意思就是说不能同时有两个？
那我应该怎样做呢？

能不能帮我修改一下呢？

kbchong

原帖由 goatstudio 于 28-5-2006 12:46 AM 发表


On Error Goto 很好用, 但应尽量少用, 因为会导致你的 code 乱七八糟.

例子:

Function DoSomething ()

  On Error GoTo ErrHandler1

    ' do something

  Exit Fucntion ' 一定要放这个, 否则 ...

我试过这个但在Exit Function却出现 Exit Function
不知为什么

goatstudio

原帖由 kbchong 于 29-5-2006 07:31 PM 发表


我试过这个但在Exit Function却出现 Exit Function
不知为什么

Private Sub CommandButton1_Click()

  On Error GoTo ErrHandler1

  Dim i As Integer

  For i = 1 To 5
    Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) + Sheets("sheet1").Cells(i, 2)
  Next i

  ErrHandler1:
  
    MsgBox "key in the number"
End Sub

kbchong

原帖由 goatstudio 于 29-5-2006 07:35 PM 发表



Private Sub CommandButton1_Click()

  On Error GoTo ErrHandler1

  Dim i As Integer

  For i = 1 To 5
    Sheets("sheet1".Cells(i, 3) = Sheets("sheet1".Cells(i, 1 ...

这个方法我试过了，但就算没错误也出现”key in the number“

goatstudio

对不起... 少放了一行:

Private Sub CommandButton1_Click()

  On Error GoTo ErrHandler1

  Dim i As Integer

  For i = 1 To 5
    Sheets("sheet1").Cells(i, 3) = Sheets("sheet1").Cells(i, 1) + Sheets("sheet1").Cells(i, 2)
  Next i

  Exit Sub

  ErrHandler1:
  
    MsgBox "key in the number"
End Sub

kbchong

原帖由 goatstudio 于 30-5-2006 11:50 PM 发表
对不起... 少放了一行:

Private Sub CommandButton1_Click()

  On Error GoTo ErrHandler1

  Dim i As Integer

  For i = 1 To 5
    Sheets("sheet1".Cells(i, 3) = Sheets("sheet ...

也！！！我成功了！！！


Private Sub CommandButton5_Click()


Sheets("sheet1".[a1:b5] = ""


End Sub

如果我这样写对吗？

但如果我只要delete文字就是说，任何abc。。。应该用什么？

因为我对VB不熟，好像＊代表任何或全部，哪VB能不能写＊能？

kbchong

还有Excel能convert去txt file吗？

kbchong

没人答吗？
我很需要答案

goatstudio

原帖由 kbchong 于 31-5-2006 03:04 PM 发表
还有Excel能convert去txt file吗？

我想, 你应该先自己尝试一下... 事因你的问题实在太简单.
要把 Excel 转去 txt 只要在 Excel 里 Save as -> *.txt 不就可以了?

要用 code 来做的话, 也简单的很... 在 google 上打上 vb create file 就会有一大堆资料跑出来.

[ 本帖最后由 goatstudio 于 1-6-2006 05:47 PM 编辑 ]

kbchong

原帖由 goatstudio 于 1-6-2006 05:45 PM 发表


我想, 你应该先自己尝试一下... 事因你的问题实在太简单.
要把 Excel 转去 txt 只要在 Excel 里 Save as -> *.txt 不就可以了?

要用 code 来做的话, 也简单的很... 在 google 上打上 vb create file 就 ...

我试过了*.txt，但他还是excel格式，为何那样？
所以我才问啊！！！