質問編集履歴

3

追加

2022/06/08 05:17

投稿

shibakoppe
shibakoppe

スコア35

test CHANGED
File without changes
test CHANGED
@@ -229,7 +229,7 @@
229
229
  TextToDisplay:=.Cells(i, 7) 'G列に短縮表示文字があると仮定
230
230
 
231
231
  ```
232
- 上記のTextToDisplay:=.Cells(i, 7) の部分で実行エラー5が起きてしまっているようなのですが、変数iではなく、この部分だけ他の変数を用いる等をすればよいのでしょうか…?
232
+ 上記のTextToDisplay:=.Cells(i, 7) の部分で実行エラー5(プロシージャの呼び出し、または引数不正)が起きてしまっているようなのですが、変数iではなく、この部分だけ他の変数を用いる等をすればよいのでしょうか…?
233
233
 
234
234
  何度も申し訳ございません。
235
235
 

2

追記2

2022/06/08 05:16

投稿

shibakoppe
shibakoppe

スコア35

test CHANGED
File without changes
test CHANGED
@@ -220,3 +220,16 @@
220
220
  何卒宜しくお願い申し上げます。
221
221
 
222
222
 
223
+ ※追記2※
224
+ hatena19様にご教示いただいた以下のコードを試したところ
225
+ ```
226
+ .Hyperlinks.Add anchor:=.Cells(i, 5), _
227
+ Address:=.Cells(i, 8), _
228
+ SubAddress:="'" & .Cells(i, 3) & "'!" & .Cells(i, 4) , _
229
+ TextToDisplay:=.Cells(i, 7) 'G列に短縮表示文字があると仮定
230
+
231
+ ```
232
+ 上記のTextToDisplay:=.Cells(i, 7) の部分で実行エラー5が起きてしまっているようなのですが、変数iではなく、この部分だけ他の変数を用いる等をすればよいのでしょうか…?
233
+
234
+ 何度も申し訳ございません。
235
+

1

追記1

2022/06/08 02:04

投稿

shibakoppe
shibakoppe

スコア35

test CHANGED
File without changes
test CHANGED
@@ -212,3 +212,11 @@
212
212
  毎度のことながらご迷惑をおかけしてしまい申し訳ございませんが、今一度皆様のお力をお貸しいただきたく思います。
213
213
  何卒宜しくお願い申し上げます。
214
214
 
215
+ ※追記1※
216
+ 投稿時に記載しそびれてしまったのですが、最終的にセルの指定まで出来たらハイパーリンクの文字列を短縮表示したいと考えております。
217
+ TextToDisplayをしようすると文字列のみの使用となってしまうと思うのですが、こちらもCellsを使用するといった方法を取ることはできますでしょうか?
218
+
219
+ お手数をおかけしますが、こちらについても併せてご教示いただけますと幸いです。
220
+ 何卒宜しくお願い申し上げます。
221
+
222
+