[發問]請問如何在Hyperlinks(1).SubAddress所指定位置之儲存格上填值
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
[發問]請在Hyperlinks.Delete，移除儲存格的超連結時，要怎麼避免原先的格式一併移除
原先超連結儲存格上上有底色、字體、框線，
請問在Hyperlinks.Delete，移除時，要怎麼避免問這些格式被一併移除 |
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
回復 2# 准提部林
謝謝回覆，小弟多次拜讀過您的文章，十分受用，再次致謝！
我的問題是在
Cells(rr, cc).Hyperlinks.delete時，格式會一併移除
後來只刪除
Cells(rr , cc).Hyperlinks(1).SubAddress = ""，來保住原來的格式 |
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
回復 4# GBKEE
Hyperlinks(1).Delete中的(1) ，請問是什麼意思 |
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
[發問]請問如何在Hyperlinks(1).SubAddress所指定位置之儲存格上填值
假設在sheets("AAA")的A1有超連結位址值為"BBB!G1"，
請問如何在在sheets("AAA")上按一下儲存格A1，便可將其上所指定位置之儲存格上填值(例如，123) |
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
回復 8# luhpro
謝謝回覆，我的方式如下，請指教
Dim gameHyper, gameSheets, gameCells As String
x = InStr(1, gameHyper, "!", 1)
If x > 0 Then
gameSheets = Left(gameHyper, x - 1)
gameCells = Mid(gameHyper, x + 1, Len(gameHyper) - x)
Sheets(gameSheets).Range(gameCells).Value = ""
End If
最後一句是我填值的方式
Sheets(gameSheets).Range(gameCells).Value = "" |
|
|
|
|
|
|
|
發表於 2016-4-28 20:12
| 
