12
返回列表 上一主題 發帖

[發問] 請教如何簡化指令及在如何一般模組中使用

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-1-23 03:58 | 只看該作者

[發問] 請教如何簡化指令及在如何一般模組中使用

請教各為先進, 小弟程式碼如下, 原本小弟想使用For.....Next迴圈來判斷C欄是否有資料並控制 CommandButton顯示與否
但是卡在 控制項物件的部份, 小弟不會使用For...Next來寫...再請各位先進指導一下.

另外因所有的sheet都會用到該程式, 因此小弟新增於一般模組, 可是每當執行後, 會出現"此處需要物件"的錯誤訊息
看Excel的說明說我少了指定的定位項, 小弟不太瞭解定位項的意思以及該放在那邊...有勞各位先進開導, 謝謝!!
  1. Sub RemoveButton()

  3. If [C3] <> "" Then
  4.     CommandButton2.Visible = True
  5.     Else
  6.     CommandButton2.Visible = False
  7. End If

  9. If [C4] <> "" Then
  10.     CommandButton3.Visible = True
  11.     Else
  12.     CommandButton3.Visible = False
  13. End If

  15. If [C5] <> "" Then
  16.     CommandButton4.Visible = True
  17.     Else
  18.     CommandButton4.Visible = False
  19. End If

  21. If [C6] <> "" Then
  22.     CommandButton5.Visible = True
  23.     Else
  24.     CommandButton5.Visible = False
  25. End If

  27. If [C7] <> "" Then
  28.     CommandButton6.Visible = True
  29.     Else
  30.     CommandButton6.Visible = False
  31. End If

  33. If [C8] <> "" Then
  34.     CommandButton7.Visible = True
  35.     Else
  36.     CommandButton7.Visible = False
  37. End If

  39. If [C10] <> "" Then
  40.     CommandButton8.Visible = True
  41.     Else
  42.     CommandButton8.Visible = False
  43. End If

  45. If [C11] <> "" Then
  46.     CommandButton9.Visible = True
  47.     Else
  48.     CommandButton9.Visible = False
  49. End If

  51. If [C12] <> "" Then
  52.     CommandButton10.Visible = True
  53.     Else
  54.     CommandButton10.Visible = False
  55. End If

  57. If [C13] <> "" Then
  58.     CommandButton11.Visible = True
  59.     Else
  60.     CommandButton11.Visible = False
  61. End If

  63. If [C14] <> "" Then
  64.     CommandButton12.Visible = True
  65.     Else
  66.     CommandButton12.Visible = False
  67. End If

  69. If [C15] <> "" Then
  70.     CommandButton13.Visible = True
  71.     Else
  72.     CommandButton13.Visible = False
  73. End If

  75. If [C16] <> "" Then
  76.     CommandButton14.Visible = True
  77.     Else
  78.     CommandButton14.Visible = False
  79. End If

  81. If [C17] <> "" Then
  82.     CommandButton15.Visible = True
  83.     Else
  84.     CommandButton15.Visible = False
  85. End If

  87. End Sub
複製代碼
收藏 分享

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
12#
發表於 2012-1-28 20:03 | 只看該作者
回復 11# GBKEE

GBKEE版大,
真的太感謝您了, 您真的是神人
謝謝!!

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11#
發表於 2012-1-28 19:53 | 只看該作者
回復 10# dino1978
OLEObjects("CheckBox" & i).Object.Value = False

TOP

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
10#
發表於 2012-1-28 19:16 | 只看該作者
回復 9# GBKEE

GBKEE 版大,
   我的意思是, 我想在Workbook開啟後, 自動將所有的CheckBox控制項取消核取,
所以我才會把程式改成 .Value=False,  不知這樣可不可行嗎?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2012-1-28 18:41 | 只看該作者
回復 8# dino1978
.OLEObjects("CheckBox" & i).Value = False
改成
.OLEObjects("CheckBox" & i).Visible = False

TOP

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
8#
發表於 2012-1-28 17:31 | 只看該作者
回復 7# GBKEE

GBKEE 版大
   不好意思, 我太豬頭了, 我忘了將舊的模組移除造成衝突, 現在問題已經解決了
太感謝您了~整個看起來就清爽多了!!

另外想請教的是 CheckBox 控制項是否也能夠像 CommandButton一樣用 OLEobjects的方式來做Loop呢?
我有自己小試了一下, 會出現 "物件不支援此屬性或方法"
是我的語法錯誤還是CheckBox控制項不能這樣使用?
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  3. Dim i As Integer

  5. i = 1

  7. With Sheet1
  8. .OLEObjects("CheckBox" & i).Value = False
  9. End With

  11. End Sub
複製代碼

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2012-1-28 08:22 | 只看該作者
回復 6# dino1978
請上傳你修改後的檔案看看

TOP

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
6#
發表於 2012-1-28 06:03 | 只看該作者
本帖最後由 dino1978 於 2012-1-28 06:04 編輯

回復 5# GBKEE


    GBKEE版大,
   原來還有這招可以用, 真的是學到了
   不過我將該程式碼應用在上面的時候, 發生如下圖的錯誤訊息,
   看了老半天還是不知道問題出在哪, 我並沒有動到其他的欄位
   但執行後就出現了這個錯誤訊息, 再請您幫我確認一下, 謝謝您
   (若改回原來的方式, 就不會出現這個問題了, 不太理解.....)
擷取1.JPG

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-1-27 07:16 | 只看該作者
回復 4# dino1978
還有可簡化
  1. Private Sub CommandButton10_Click()
  2.     ASlotRemove [C12]   '傳送參數MyText : [C12]
  3. End Sub
  4. Private Sub CommandButton11_Click()
  5.     ASlotRemove [C13]   '傳送參數MyText : [C13]
  6. End Sub
  7. Private Sub CommandButton12_Click()
  8.     ASlotRemove [C14]    '傳送參數MyText : [C14]
  9. End Sub
複製代碼
  1. Sub SlotRemove(ByVal MyText As Range)   '接收參數 MyText
  2.     Application.ScreenUpdating = False
  3.     Dim Rng As Range, F_Address As String, TheFind As String, a As Range
  4.     'MyText = [C12] ' Trim(InputBox("請輸入要尋找的值:"))
  5.     If MyText <> "" Then
  6.         Set Rng = Sheet3.Range("A1").CurrentRegion.EntireColumn.Find(MyText, lookat:=xlWhole)
  7.         If Not Rng Is Nothing Then
  8.             F_Address = Rng.Address
  9.             Do
  10.                 TheFind = IIf(TheFind = "", Rng.Address(0, 0), TheFind & "   " & Rng.Address(0, 0))
  11.                 Set Rng = Sheet3.Range("A1").CurrentRegion.EntireColumn.FindNext(Rng)
  12.             Loop Until F_Address = Rng.Address
  13.         End If
  14.         Else: GoTo err2
  15.     End If
  16.     If TheFind <> "" Then
  17.         If Rng Is Nothing Then
  18.             GoTo err
  19.         Else
  20.           Sheet2.Range("A65536").End(xlUp).Offset(1) = Rng
  21.             With Rng.Resize(1, 3)
  22.                 .Delete xlShiftUp
  23.             End With
  24.             With Range("B12")
  25.                 .Resize(1, 2).ClearContents
  26.                 .ClearContents
  27.                 .Offset(, 1).Validation.Delete
  28.             End With
  29.         End If
  30.     Else
  31. err:
  32.         MsgBox "沒有找到  " & MyText
  33. err2:
  34.     End If
  35.     TheFind = ""
  36.     Application.ScreenUpdating = True
  37. End Sub
複製代碼

TOP

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
4#
發表於 2012-1-27 06:31 | 只看該作者
TR6850 configure.zip (310.03 KB)
回復 2# Hsieh
超版大大, 很抱歉這麼晚才回覆您, 我的附檔如附件, 已參照GBKEE大大的指令稍作修改完成, 謝謝您的協助

回復 3# GBKEE
GBKEE 版大, 謝謝您的幫忙, 程式照您的方法稍作修改已經可以使用  謝謝

並祝你們新春愉快!!

TOP

        靜思自在 : 慈悲沒有敵人，智慧不起煩惱。
12
返回列表 上一主題