返回列表 上一主題 發帖

[發問] 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
收藏 分享
開心學習,學習很開心

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-5-23 06:48 | 只看該作者
回復 1# linsurvey2005
    Dim Message As String, Title As String, Default As String, MyValue As Range
    Dim R As Integer, C As Integer
    Message = "點選完畢請按確定"
    Title = "點選資料存放位置"
    Default = "A1"
    Set MyValue = Application.InputBox(Message, Title, Default, Type:=8)
    'Type:=8 儲存格參照，作為 Range物件   前面要加  Set
   ' R = ActiveCell.Row              ActiveCell為作用中的儲存格     
    'C = ActiveCell.Column
    R = MyValue.Row               ' 指定到MyValue     
    C = MyValue.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

TOP

linsurvey2005

帖子
84 
主題
15 
精華
0 
積分
123 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2011-5-16 
最後登錄
2022-9-17 
3#
發表於 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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-5-23 11:46 | 只看該作者
本帖最後由 GBKEE 於 2011-5-23 11:54 編輯

回復 3# linsurvey2005
可簡化如 Cells(R, C).Resize(1, 5) = Array("點編", "E 值", "N 值", "EL 值", "屬性")
這是部分程式碼嗎?
為何用到 DoEvents   
通常用在 Do
              ....
               DoEvents
              ....
             Loop

TOP

linsurvey2005

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

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題