請問要如何自動在每一個地址上加入Google地圖連結，且字型顏色皆不會變，謝謝您!
- 帖子
- 163
- 主題
- 27
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- winsows 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-20
- 最後登錄
- 2024-5-9
|
回復 6# stillfish00
請問 stillfish00
若儲存格內的地址會隨機變動，但超連結只會記住第一個，請問有辦法隨儲存格內的地址變動，而地圖超連結也立即跟著變動嗎?
謝謝您! |
|
|
peter460191
|
|
|
|
|
- 帖子
- 163
- 主題
- 27
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- winsows 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-20
- 最後登錄
- 2024-5-9
|
8#
發表於 2013-6-7 13:46
| 只看該作者
回復 6# stillfish00
感謝stillfish00 指導，我再研究試試看 |
|
|
peter460191
|
|
|
|
|
- 帖子
- 163
- 主題
- 27
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- winsows 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-20
- 最後登錄
- 2024-5-9
|
7#
發表於 2013-6-7 13:40
| 只看該作者
回復 5# c_c_lai
感謝 c_c_lai 您的指導，有試過了，但有的可以有的不行，問題是出在那裡，謝謝您! |
|
|
peter460191
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
6#
發表於 2013-6-7 13:23
| 只看該作者
回復 4# peter460191
2# 地址的位置是抓A2到A欄最後一筆
如果你要明確指定區域，改成下面這樣就是指定A2到A10- Sub TEST()
- Dim x
-
- With Sheets("Sheet1").Range("A2:A10")
- For Each x In .Cells
- .Parent.Hyperlinks.Add Anchor:=x, Address:="http://maps.google.com.tw/maps?q=" & x.Value
- Next
- .Style = "Normal"
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
5#
發表於 2013-6-7 13:08
| 只看該作者
回復 stillfish00
請問 stillfish00
若我要變更地址位置及數量要如何改程式，我試了好久都未 ...
peter460191 發表於 2013-6-7 12:06 
你是指這個嗎？- ' 請放置在 "工作表1" 程式區內。
- Private Sub Worksheet_Change(ByVal Target As Range)
- With Target
- .Hyperlinks.Add Anchor:=Target, Address:="http://maps.google.com.tw/maps?q=" & Target
- .Style = "Normal"
- End With
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 163
- 主題
- 27
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- winsows 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-20
- 最後登錄
- 2024-5-9
|
4#
發表於 2013-6-7 12:06
| 只看該作者
回復 2# stillfish00
請問 stillfish00
若我要變更地址位置及數量要如何改程式，我試了好久都未能成功，請幫忙教導，感激不盡，謝謝您! |
|
|
peter460191
|
|
|
|
|
- 帖子
- 163
- 主題
- 27
- 精華
- 0
- 積分
- 193
- 點名
- 0
- 作業系統
- winsows 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-20
- 最後登錄
- 2024-5-9
|
3#
發表於 2013-6-7 11:51
| 只看該作者
回復 2# stillfish00
感謝 stillfish00 的指導，已經可以，會好好研究，非常謝謝您! |
|
|
peter460191
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
2#
發表於 2013-6-6 20:55
| 只看該作者
回復 1# peter460191
試試看- Sub TEST()
- Dim r As Long, x
-
- With Sheets("Sheet1")
- r = .Cells(.Rows.Count, "A").End(xlUp).Row
- If r > 1 Then
- For Each x In .Range("A2:A" & r)
- .Hyperlinks.Add Anchor:=x, Address:="http://maps.google.com.tw/maps?q=" & x.Value
- Next
- .Range("A2:A" & r).Style = "Normal"
- End If
- End With
- End Sub
|
|
|
|
|
|
|
|
