返回列表 上一主題 發帖

[發問] inputbox

linsurvey2005

帖子
84 
主題
15 
精華
0 
積分
123 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2011-5-16 
最後登錄
2022-9-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-22 21:02 | 顯示全部帖子

[發問] inputbox

我要點選儲存格進行我資料的擺放位置(用滑鼠點選)
可是都不能有動作
請問這是哪邊出錯

    Dim Message, Title, Default, MyValue
      Message = "點選完畢請按確定"
      Title = "點選資料存放位置"
      Default = "A1"
    MyValue = Application.InputBox(Message, Title, Default, Type:=8)
       R = ActiveCell.Row
       C = ActiveCell.Column
            Cells(R, C).Value = "E 值"
            Cells(R, C + 1).Value = "N 值"
            Cells(R, C + 2).Value = "EL 值"
            Cells(R, C + 3).Value = "屬性"
            R = R + 1
收藏 分享
開心學習,學習很開心

linsurvey2005

帖子
84 
主題
15 
精華
0 
積分
123 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2011-5-16 
最後登錄
2022-9-17 
2#
發表於 2011-5-23 11:26 | 顯示全部帖子
通了通了~感謝 GBKEE 的指導以下為修正成果
不知道這樣子是否通順 或是有更簡便的方法
真是感謝~舒服^^
Dim Message, Title, Default, MyValue
    On Error Resume Next
    Message = "點選完畢請按確定"
    Title = "點選資料存放位置"
    Default = "A1"
    Set MyValue = Application.InputBox(Message, Title, Default, Type:=8)
            If Err Then
          Err.Clear
    Exit Sub
   End If
    Const Rn = 3
     DoEvents
     R = MyValue.Row
     C = MyValue.Column
   
            Cells(R, C).Value = "點編"
            Cells(R, C + 1).Value = "E 值"
            Cells(R, C + 2).Value = "N 值"
            Cells(R, C + 3).Value = "EL 值"
            Cells(R, C + 4).Value = "屬性"
            R = R + 1
開心學習,學習很開心

TOP

linsurvey2005

帖子
84 
主題
15 
精華
0 
積分
123 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2011-5-16 
最後登錄
2022-9-17 
3#
發表於 2011-5-23 13:23 | 顯示全部帖子
感謝"GBKEE"說明
DoEvents 不是用來暫停程式的動作嘛?
我是想騰出一些時間給電腦開啟Auto CAD程式
受益良多 真的很舒服^^
開心學習,學習很開心

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題