返回列表 上一主題 發帖

[發問] inputbox

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

回復 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

通了通了~感謝 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 於 2011-5-23 11:54 編輯

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

TOP

感謝"GBKEE"說明
DoEvents 不是用來暫停程式的動作嘛?
我是想騰出一些時間給電腦開啟Auto CAD程式
受益良多 真的很舒服^^
開心學習,學習很開心

TOP

        靜思自在 : 對父母要知恩,感恩、報恩。
返回列表 上一主題