能否依現有的VBA創出另一個VBA呢? - Excel程式區

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	*1^# 跳轉到 »* 倒序看帖** 打印字體大小: tT 發表於 2010-5-30 10:59 \| 只看該作者 [發問] 能否依現有的VBA創出另一個VBA呢? 本帖最後由 Hsieh 於 2010-5-31 08:49 編輯現有的VBA: http://naturefruit.myweb.hinet.net/map.xls 使用說明: 請點兩下B欄的儲存格(任意格).儲存格必須有值. 待完成的圖: 希望可以利用現有的VBA的原理.將待完成的圖內的A1~R1代入儲存格A欄~R欄. 將原有的點兩下儲存格更改為.在B1打入資料後按Enter或快捷鍵(如:Ctrl+F1).即可跳窗顯現. 如果跳窗顯現的部分沒辦法的話.請更改回點兩下B欄儲存格(任意格).儲存格必須有值. 感謝各位大大的幫忙. 收藏分享

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-5-31 09:23 | 只看該作者

本帖最後由 Hsieh 於 2010-5-31 11:28 編輯

回復 1# vpower

這個問題癥結在於文字編碼轉換
以樓主提供圖片為例
搜尋關鍵字是"女"
網址列參數"女"被轉成utf-8編碼 %E5%A5%B3
在此請教各位先進
big5的文字該如何轉成utf-8代碼呢?
用google搜到api函數中
MultiByteToWideChar 和 WideCharToMultiByte 是有關轉碼的函數
請懂得使用此2函數的前輩指教
如何將
女→%E5%A5%B3

學海無涯_不恥下問

TOP

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	3^# 發表於 2010-5-31 23:39 \| 只看該作者本帖最後由 vpower 於 2010-5-31 23:50 編輯回復 vpower 這個問題癥結在於文字編碼轉換以樓主提供圖片為例搜尋關鍵字是"女" 網址列參數 ... Hsieh 發表於 2010-5-31 09:23 現有的VBA: http://naturefruit.myweb.hinet.net/map.xls 使用說明: 點2下B欄.如 A地或台北市忠孝東路1段20號他都會另外開 http://maps.google.com.tw/ 網頁網頁內的搜尋第一格就會放B欄位.第二格就會放C欄我不曉得大大能不能利用程式碼如下: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 And Target.Value <> "" Then If Target.Range("B1") <> "" Then Cancel = True With CreateObject("InternetExplorer.Application") .Navigate "http://maps.google.com.tw/" Do While .Busy Or .ReadyState <> 4 DoEvents Loop .Document.all("d_d").innerText = Target .Document.all("d_daddr").innerText = Target.Range("B1") .Document.all("d_sub").Click .Visible = True End With End If End If End Sub 對於程式碼我也麻煩人家寫的.也並非很了解.好像和PD961A大大講的一樣.要查他的原文. 搜尋關鍵字是"女" 就在我標明C1的部分. 能不能麻煩PD961A大大詳細講解一下現有的VBA的程式碼. 我唯一了解的就If Target.Column = 2 And Target.Value <> "" Then 他的2代表B欄.

	TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-6-1 10:23 | 只看該作者

本帖最後由 Hsieh 於 2010-6-1 14:54 編輯

回復 6# vpower

網頁架構不同,這種網頁的查詢
是將查詢參數直接寫到網址內
不過網頁的參數採用utf_8編碼
若excel儲存格內輸入big5必需轉成utf_8十六進位碼才能代入
在網路上找到api函數的WideCharToMultiByte函數
但轉出來就是跟網址列的不同
請前輩指導該如何修正程式

Private Const CP_UTF8 = 65001
'Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Public Function UTF8_Encode(ByVal Text As String) As String
Dim sBuffer As String
Dim lLength As Long
Dim mystr()
If Text <> "" Then
lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(Text), -1, 0, 0, 0, 0)
sBuffer = Space$(lLength)
lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(Text), -1, StrPtr(sBuffer), Len(sBuffer), 0, 0)
sBuffer = StrConv(sBuffer, vbUnicode)
UTF8_Encode = Hex(Asc(Left$(sBuffer, lLength - 1)))
Else
UTF8_Encode = ""
End If
End Function

複製代碼

uft_8.rar (7.17 KB)

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 91
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-19

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-6-3 08:42 | 只看該作者

回復 4# Hsieh

山不轉路轉,路不轉我轉
經閔版主提點,utf_8行不通,用utf_5就可直接用中文字
如附件

map.rar (12.04 KB)

學海無涯_不恥下問

TOP

vpower 發短消息加為好友 vpower 當前離線 UID 383 帖子 155 主題 56 精華 0 積分 242 金錢 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 在線時間 64 小時註冊時間 2010-5-29 最後登錄 2011-7-18 禁止發言帖子 155 主題 56 精華 0 積分 242 點名 0 作業系統 WinXP 軟體版本專業版2002 閱讀權限 0 註冊時間 2010-5-29 最後登錄 2011-7-18	6^# 發表於 2010-6-3 19:33 \| 只看該作者本帖最後由 vpower 於 2010-6-3 19:34 編輯非常感謝您的用心.. 可惜我閱讀權限不足..

	TOP

[發問] 能否依現有的VBA創出另一個VBA呢?

[發問] 能否依現有的VBA創出另一個VBA呢?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]