歡迎來到我的部落格kh

第二次附上的URL可以下載到檔案~
我看了許久~
假如以題庫來研判~
而且用很笨的方法~
應該沒問題~
技巧重點是 點B欄後這個值被接受與紀錄~
然後用 shell 來執行 exe 檔~
我不太會用執行當時的資料夾~
但是用 C:\ 是會的~
我會找時間試一下~
假如大家都沒幫上忙~
就等我的笨解答~
不過要等到延期後的最後三天了~

2014-06-23 20:26:34 補充：
這是抄題庫來的~
東湊西湊的~
不過還是可以抓到B的值的~
請您試試看~
抄的不好~
請專家們指導一下~
我也是在學習~
以前 准提大 曾經誇過我~
說我很用功~
可以學到很多技巧~

2014-06-23 20:29:32 補充：
以下屬全形者請自己修正成半形~
Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public m＿value As String

2014-06-23 20:30:03 補充：
Private Sub Worksheet＿SelectionChange(ByVal Target As Range)
If Target.Column ＝ 2 And Target.Count ＝ 1 Then
If Target.Row ＞＝ 2 Then
MsgBox ("抓到的B欄 ROW 值 : ") & Target.Row
MsgBox ("抓到的B欄 Column 值 : ") & Target.Column

2014-06-23 20:30:13 補充：
m_value ＝ Cells(Target.Row, Target.Column)
MsgBox ("複製到的 值 : ") & m＿value
End If
End If
End Sub

2014-06-23 21:33:49 補充：
寫的不好~請大家指導一下~
Application.CutCopyMode = False
請插入 Private Sub Worksheet＿SelectionChange(ByVal Target As Range) 下方~
Cells(1, 4) = m＿value
Range("D1").Select
Selection.Copy
Call 執行EXE檔

2014-06-23 21:33:59 補充：
請插入MsgBox ("複製到的 值 : ") & m＿value下方~
module 1 內容~
Sub 執行EXE檔()
Shell "C＼測試資料夾＼RegOpenKey(X64).exe"
End Sub

2014-06-23 22:03:31 補充：
這些都是拼裝出來的~
加註解不要找我~
改更好也不要找我~
我只是拋磚引玉學習而已~
我也沒地方上傳~
那個也是要密碼~
只能這樣表達而已~
再來不關我的事嚕~

2014-06-29 22:05:25 補充：
以下屬全形者請自己修正成半形~
Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) AsLong
Public m＿value AsStringPrivate Sub Worksheet＿SelectionChange(ByVal Target AsRange)Application.CutCopyMode = False
If Target.Column ＝ 2 And Target.Count ＝ 1 Then
If Target.Row ＞＝ 2 Then
MsgBox ("抓到的B欄 ROW 值: ") & Target.Row
MsgBox ("抓到的B欄 Column 值 : ") & Target.Columnm_value ＝ Cells(Target.Row, Target.Column)
MsgBox ("複製到的 值 : ") & m＿valueCells(1, 4) = m＿value
Range("D1").Select
Selection.Copy
Call 執行EXE檔
End If
End If
End Sub module 1 內容~感謝 妙地知識長的適度修改
Sub 執行EXE檔()
'Shell "C＼測試資料夾＼RegOpenKey(X64).exe"
Shell ActiveWorkbook.Path & "RegOpenKey(X64).exe"
End Sub