返回列表 上一主題 發帖

N=對話框點選的列數

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-13 21:01 | 只看該作者

N=對話框點選的列數

各位前輩你們好!!   
         問題如附檔說明
         請知道的前輩,不吝賜教謝謝再三!!

LeoV77.rar (9.37 KB)

收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2013-10-13 22:04 | 只看該作者
本帖最後由 luhpro 於 2013-10-13 22:06 編輯

回復 1# myleoyes
依據 InputBox 的說明,
這裡 Z 就是所選 Range 的參照, 故而 Z.Row 就是你要的列值囉.
  1. Sub AA()
  2.     Dim Z As Range
  3.        [A1:C1] = ""
  4.     Set Z = Application.InputBox("請選取資料", "        來源數據", Type:=8)
  5.         If Z <= 0 Then Exit Sub
  6.         N = Z.Row 'N = ActiveCell.Row
  7.         [$D$1] = "=" & Z & "-" & N
  8.         [D1].Select
  9. End Sub
複製代碼

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2013-10-14 21:33 | 只看該作者
回復 2# luhpro
前輩!謝謝!!N= Z.Row小弟有試過
         問題是If Z <= 0 The Exit Sub
         改為If Z <= 0 Then GoTo ag
         當對話框選擇取消時
        程式會錯誤424不知為何?
         請前輩不吝再賜教謝謝再三!!

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
4#
發表於 2013-10-14 22:51 | 只看該作者
回復 3# myleoyes
那是因為按取消時 InputBox 的傳回值為 "False",
而非儲存格的參照,
自然就無法指定給 Z(Type 為 Range) 了. (發生錯誤代碼 424 : 此處需要物件)

這可以透過錯誤處理來解決:
  1. Sub AA()
  2.   Dim Z As Range
  3.    
  4. On Error GoTo ErrorAA
  5.   [A1:C1] = ""
  6.   Set Z = Application.InputBox("請選取資料", "        來源數據", Type:=8)
  7.   If Z <= 0 Then Exit Sub
  8.   N = 3 'N = ActiveCell.Row
  9.   [$D$1] = "=" & Z & "-" & N
  10.   [D1].Select
  11. On Error Resume Next
  12. Exit Sub
  13.         
  14. ErrorAA:
  15.   If Err.Number = 424 Then
  16.     Exit Sub
  17.   Else
  18.     MsgBox ("發生錯誤, 錯誤代碼 : " & Err.Number & "  錯誤原因 :" & Err.Description)
  19.     Resume Next
  20.   End If
  21. End Sub
複製代碼

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
5#
發表於 2013-10-15 21:17 | 只看該作者
回復 4# luhpro
前輩!
        謝謝!!小弟修改如下
  Sub AA()
  Dim Z As Range
  On Error Resume Next
  [A1:C1] = ""
ag:
  Set Z = Application.InputBox("請選取資料", "        來源數據", Type:=8)
  If Z <= 0 Then GoTo ag
   N = Z.Row
  [$D$1] = "=" & Z & "-" & N
  [D1].Select
End Sub

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題