帖子: 7
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2010-6-19
最後登錄: 2017-6-30

31^# 跳轉到 »

發表於 2014-4-14 12:20 | 只看該作者

回復 26# opelwang

應該是打錯字了, 正確是:

學習VBA的用法.

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

32^#

發表於 2014-5-13 12:20 | 只看該作者

回復 29# GBKEE

版主我最近重新練習又發現了一個問題，就是如果我想要多判斷C10 與 C12 ,也就是同時可能兩個主辦兩個協辦，
能在'For Each E In Sh.Range("B10,B12")' 這邊直接插入'For Each E In Sh.Range("B10,B12,C10,C12") 嗎??'
那我在下面IF判斷式該如何修改??
顯示的位子都不變只是多判斷儲存格C10與C12

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

33^#

發表於 2014-5-13 17:35 | 只看該作者

回復 32# willy1205

試了一下好像沒辦法直接加入C10 C12,且下面判斷式會卡死...

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

34^#

發表於 2014-5-16 15:03 | 只看該作者

版主有方法可以解決嗎!?

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

35^# 倒序看帖

打印

字體大小: tT

發表於 2014-5-19 16:31 | 只看該作者

[發問] ~ 發現一個新的問題關於IF判斷式

本帖最後由 GBKEE 於 2014-5-22 16:40 編輯

我最近又重新將程式拿出來練習，原本判斷式是判斷B10與B12，
我發現如果今天我想要多判斷C10與C12，甚至D10與D12，不知道該從哪邊插入IF判斷式，
For Each E In Sh.Range("B8,B10") 這邊好像沒辦法直接改成 For Each E In Sh.Range("B8,B10,C10,C12")
有辦法能多判斷C10與C12嗎??

付上原帖的連結 http://forum.twbts.com/viewthrea ... p;extra=&page=3
版主給的程式碼
Dim NewRow As Integer, E As Range, Sh As Worksheet
Set Sh = Worksheets("4-工作日誌OP COA AGR")
For Each E In Sh.Range("B10,B12")
If E.Address = "$B$10" Then
         NewRow = Sh.Range("J34").Value
      Else
         NewRow = Sh.Range("J35").Value
      End If

With Worksheets(E.Value)

.Cells(NewRow, 1) = Sh.Range("C7")

.Cells(NewRow, 2) = Sh.Range("C8").Value

.Cells(NewRow, 3) = Sh.Range("I14").Value

.Cells(NewRow, 4) = Sh.Range("I15").Value

.Cells(NewRow, 6) = Sh.Range("G24").Value

If E.Address = "$B$10" Then

.Cells(NewRow, 7) = Sh.Range("H32")
.Cells(NewRow, 5) = Sh.Range("J10").Value

Sh.Range("J34") = NewRow

Else

.Cells(NewRow, 7) = Sh.Range("H34")
.Cells(NewRow, 5) = Sh.Range("J12").Value

Sh.Range("J35") = NewRow

End If

End With

Next
MsgBox "New Data added", vbOKOnly, "Data"

End Sub

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

36^#

發表於 2014-5-21 15:29 | 只看該作者

回復 35# willy1205

Sub Ex()
Dim E, NewRow
For Each E In Range("B8,B10,C10,C12")
Select Case E.Address(0, 0)
Case "B8"
NewRow = 1
Case "B10"
NewRow = 2
Case "C10"
NewRow = 3
Case "C12"
NewRow = 4
End Select
MsgBox NewRow
Next
End Sub
Sub Ex1()
Dim E, NewRow
For Each E In Range("B8,B10,C10,C12")
If E.Address(0, 0) = "B8" Then
NewRow = 1
ElseIf E.Address(0, 0) = "B10" Then
NewRow = 2
ElseIf E.Address(0, 0) = "C10" Then
NewRow = 3
ElseIf E.Address(0, 0) = "C12" Then
NewRow = 4
End If
MsgBox NewRow
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

37^#

發表於 2014-5-21 16:58 | 只看該作者

回復 36# GBKEE

版主謝謝你，請問如果要把他寫在同一個按鈕巨集裡面這有辦法嗎??

TOP

willy1205

小學生 Rank: 1

帖子: 29
主題: 2
精華: 0
積分: 32
點名: 0
作業系統: windows 7
軟體版本: 專業版
閱讀權限: 10
註冊時間: 2014-3-31
最後登錄: 2014-7-10

38^#

發表於 2014-5-21 17:14 | 只看該作者

如果將原本的
For Each E In Sh.Range("B10,B12")
If E.Address = "$B$10" Then
         NewRow = Sh.Range("J34").Value
      Else
         NewRow = Sh.Range("J35").Value
      End If
改成
For Each E In Range("B10,B12,C10,C12")
Select Case E.Address(0, 0)
Case "B10"
      NewRow = 1
Case "B12"
      NewRow = 2
Case "C10"
      NewRow = 3
Case "C12"
NewRow = 4
End Select
下面的With Worksheets(E.Value)會變成out of range

該如何修改?

TOP

willy1205