~ 發現一個新的問題關於IF判斷式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » ~ 發現一個新的問題關於IF判斷式

1 234 5 下一頁

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

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

21^# 跳轉到 »

發表於 2014-4-11 14:34 | 只看該作者

本帖最後由 willy1205 於 2014-4-11 14:36 編輯

回復 20# GBKEE

剛好像沒存好巨集再放一次

ex.zip (47.55 KB)
怕又沒存好我把巨集複製再筆記本

是的，判斷主辦或協辦的名子是哪個就把資料導入到那個人的sheet裡面，
我是寫If Worksheets("sheet1").Range("B8").Value = "甲君" Then 利用儲存格上的名子判斷輸入的資料該去甲君的sheet還是其他人的
所以有70個判斷式...

ex.zip (47 KB)

超級版主 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兔年全勤獎章

22^#

發表於 2014-4-11 15:26 | 只看該作者

本帖最後由 GBKEE 於 2014-4-11 16:40 編輯

回復 21# willy1205

所以有70個判斷式...

不需如此麻煩

Sub RoundedRectangle1_Click()
Dim NewRow As Integer, E As Range, Sh As Worksheet
Set Sh = Worksheets("Sheet1") '變數指定為工作表 **下面的程式碼如有更改工作表 **改這變數可省麻煩
NewRow = Sh.Range("J34").Value
' Worksheets("sheet1").Range("B8").Value '管他是甲君,乙君,丙君只要這工作表(名稱)有在活頁簿中,
For Each E In Sh.Range("B8,B10") '導入B8,B10 的儲存格
With Worksheets(E.Value) 'E.Value 的工作表
.Cells(NewRow, 1) = Sh.Range("C5")
.Cells(NewRow, 2) = Sh.Range("C6").Value
.Cells(NewRow, 3) = Sh.Range("I12").Value
.Cells(NewRow, 4) = Sh.Range("I13").Value
.Cells(NewRow, 6) = Sh.Range("G22").Value
If E.Address = "$B$8" Then '主辦
.Cells(NewRow, 7) = Sh.Range("H30")
Sh.Range("J34") = NewRow
Else '協辦
.Cells(NewRow, 7) = Sh.Range("H32")
Sh.Range("J35") = NewRow
End If
End With
Next
MsgBox "New Data added", vbOKOnly, "Data"
End Sub

複製代碼

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

小學生 Rank: 1

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

23^#

發表於 2014-4-11 15:30 | 只看該作者

回復 22# GBKEE

謝謝版主，我再試試看

還有如果初學者想找書自修VBA的話有推薦的嗎??
目前都只是網路找PDF書籍自己慢慢摸...有點難懂

超級版主 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兔年全勤獎章

24^#

發表於 2014-4-11 15:37 | 只看該作者

回復 23# willy1205
多看看程式區回覆的程式碼,不懂的複製下來,看看vba 視窗的說明.
再不明瞭,可發問,光看書不如無書

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

小學生 Rank: 1

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

25^#

發表於 2014-4-11 15:39 | 只看該作者

回復 24# GBKEE

okok 謝謝版主

小學生 Rank: 1

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

26^#

發表於 2014-4-11 16:14 | 只看該作者

恛噎BA的用法.

小學生 Rank: 1

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

27^#

發表於 2014-4-11 16:15 | 只看該作者

回復 22# GBKEE

版主有個問題，就是乙君是協辦，所以乙君抓的金額應該是H32，只有這個會跟甲君不同，我自己剛也沒發現到，
由於他是協辦所以他的資料要在第27行開始，但我按了導入資料以後J35變成7，所以乙君資料也出現在第7行，
這要怎麼修改才可以??

小學生 Rank: 1

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

28^#

發表於 2014-4-11 16:49 | 只看該作者

回復 22# GBKEE

謝謝版主資料抓取沒錯，可是J35還是變成7，乙君的資料還是出現在第7行而不是第27行耶

超級版主 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兔年全勤獎章

29^#

發表於 2014-4-11 17:25 | 只看該作者

回復 28# willy1205

Option Explicit
Sub RoundedRectangle1_Click()
Dim NewRow As Integer, E As Range, Sh As Worksheet
Set Sh = Worksheets("Sheet1") '變數指定為工作表 **下面的程式碼如有更改工作表 **改這變數可省麻煩
'Worksheets("sheet1").Range("B8").Value '管他是甲君,乙君,丙君只要這工作表(名稱)有在活頁簿中,
For Each E In Sh.Range("B8,B10") '導入B8,B10 的儲存格
'判斷主辦,協辦的列號
If E.Address = "$B$8" Then '主辦
NewRow = Sh.Range("J34").Value
Else '協辦
NewRow = Sh.Range("J35").Value
End If
With Worksheets(E.Value) 'E.Value 的工作表
.Cells(NewRow, 1) = Sh.Range("C5")
.Cells(NewRow, 2) = Sh.Range("C6").Value
.Cells(NewRow, 3) = Sh.Range("I12").Value
.Cells(NewRow, 4) = Sh.Range("I13").Value
.Cells(NewRow, 6) = Sh.Range("G22").Value
'判斷主辦,協辦要改變的位置列號
If E.Address = "$B$8" Then '主辦
.Cells(NewRow, 7) = Sh.Range("H30")
Else '協辦
.Cells(NewRow, 7) = Sh.Range("H32")
End If
End With
Next
MsgBox "New Data added", vbOKOnly, "Data"
End Sub

複製代碼

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

小學生 Rank: 1

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

30^#

發表於 2014-4-11 17:28 | 只看該作者

回復 29# GBKEE

了解謝謝版主

靜思自在 : 受人點水之恩，須當湧泉以報。

1 234 5 下一頁

返回列表下一主題上一主題