Yahoo奇摩 網頁搜尋

  1. Sub string_fucntion() Dim test_1 As Integer Dim test_2 As Integer Dim test_str3 As String Dim temp As Integer Do test_1 = Val(InputBox(prompt:="please...

  2. 看不太懂你的意思,能否說得更明確些? 2007-06-15 14:38:53 補充: 每次執行時會檢查工作表 sheet_one 是否存在? 若 sheet_one 不存在,則在現存工作表的最後加一個新工作表。 若 sheet_one 已存在,則將該工作表的內容清除。 Sub doloop() Dim a As Integer, b...

  3. Sub test_1() Dim i As Integer, j As Integer Cells(2, 3) = "第一個號碼" Cells(2, 4) = "第二個號碼" Cells(2, 5) = "第三個號碼" Cells(2, 6) = "第四個號碼" Cells(2, 7) = "第五...

  4. Sub string_fucntion() Dim test_str1 As String, test_str2 As String Dim ans As Integer locate = 5 Do test_str1 = Application.InputBox(prompt:="please input first string"...

  5. ... 歌詞請見:http://www.lyricsmode.com/lyrics/j/jay_z/la_la_la_ excuse _me_again.html 歌詞太多了貼不上!!

  6. ...do Girl im sayin were through It over now i dont wanna hear no excuse So be on your way Theres nothin to say Dont you know...

  7. ...to tell me that we can still be friends You aint gotta make no excuses and pretend Cause i'll be fine, said i'll be fine Theres...

  8. ...[CHORUS] All my life I've made excuses Pushing you away, saying that you're not for me All...

  9. ... to tell me that we can still be friends you aint gotta make no excuses and pretend cause i'll be fine, said i'll be fine there no need to call...

  10. ...怕我坎檔 因為..... 我也不知我坎了他還是會在 2008-08-23 20:39:29 補充: Excuse me 你要先用我做的游標至少也說移下八....