- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 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 |
|
發表於 2011-5-23 06:48
| 