常連

### 前提

VBAでのHyperlinks.addについて分からない事象が発生しており困っています。
素人ながら色々ネットで調べてみたのですが解決できずご質問させていただいています。
対策と後学の為に原因の理解をしたいと考えております。

### 実現したいこと

アクティブなシートに関係なく、指定したワークシートの指定したセルにハイパーリンクを挿入したいです。

### 発生している問題・エラーメッセージ
Sheet1のRange（”A25”）に変数でパスを入力したリンクをハイパーリンクで挿入しようとすると
現在ActiveなシートであるSheet2のRange("A25")に指定したハイパーリンクが挿入されます。
要望としてはアクティブなシートに関係なく正常にSheet1にハイパーリンクを挿入したいです。
（それともHyperlinksはアクティブなシートに反映されるものなのでしょうか。）

ご参考までに、前後でハイパーリンクを使わず、セルに文字挿入しているのですが、それはSheet1に正常に入力されます。

### 該当のソースコード
Sub test()

Dim sheet as string
Dim add as string
sht = "Sheet1"
add = "C\file.xlsm"

MsgBox Activesheet.Name  '"Sheet2"が表示されます。

Workshhets(sht).cells(1, 1).Value = 1 'Sheet1(1,1)に"1"が入力されます。

Worksheets(sht).hyperlinks.add Anchor:=Range("A25"), Address:=add, TextToDisplay:="〇"  '"Sheet2のA25に〇というテキストにaddというリンクのハイパーリンクが挿入されています。"

Workshhets(sht).cells(2, 1).Value = 2 'Sheet1(2,1)に"2"が入力されます。

End Sub

```ここに言語名を入力
VBA
```

### 試したこと

Sheet1だけの状態にして（アクティブなシートがSheet1）、マクロ走らせると正常に動作します。
※恐らくアクティブなシートになぜかハイパーリンクの文だけ反映されてしまっていると思います。

### 補足情報（FW/ツールのバージョンなど）
 Excel2016 win10

【VBA】アクティブなシートに関係なく指定したシートにハイパーリンクを挿入したい

### 実現したいこと
マクロのハイパーリンクをファイルサーバーの絶対パスにしたい

### 発生している問題・分からないこと
現在、以下のようなマクロを使っています。
①データを入力
②「保存」ボタン押下
③エクセルを新しく作成し、お客さんの詳細情報を入力する（1エクセルファイルにつき、1人のお客様情報）
④③のエクセルを社内の共有ファイルサーバーに保存する
⑤④に対して、ハイパーリンクを作成する。

上記のマクロファイルの運用を始めて半年以上たちますが、問題なくハイパーリンクが機能していました。
ただ、最近気づいたのですが、約３か月ほど前のハイパーリンクがローカルのファイルがリンク先になっており、
リンクが機能していないです。
※ファイルの保存は適切にできています。

原因を探ると、ハイパーリンクのアドレスがローカルパスになっていました。
（右クリック→「ハイパーリンクの編集」を選択してアドレスを確認。）
マクロ上では、絶対パスを指定してハイパーリンクを作成していたのですが、どうしてローカルファイルが指定されてしまったのでしょうか。
また、どうして古いハイパーリンクのみローカルファイルになってしまったのでしょうか。

何か、改修方法ありますでしょうか。

### エラーメッセージ
```error
右クリック→「ハイパーリンクの編集」を選択してアドレスを確認すると、ローカルパスにてハイパーリンクが設定されていました。

こんな感じのローカルパスが設定されていました。
C:\Users\tokyo\AppData\Roaming\Microsoft\Excel\\NO10000太郎さま
```

### 該当のソースコード

```VBA
Const constCosutomorSaveFolder As String = "\\192.168.0.xxx\xxx1\お客様情報"    '保存先
Const constCosutomorGenshiFolder As String = "\\192.168.0.xxx\xxx1\お客様情報の原紙"    'お客様情報の原紙の場所
Const constCosutomorGenshiFileName As String = "お客様情報原紙(空調).xlsm"    '客様情報原紙(空調)

    '一覧表シートへ転記作業
    Dim lngEndRow As Long

     With ThisWorkbook.Worksheets("お客様一覧")
        lngEndRow = .Cells(Rows.Count, 2).End(xlUp).Row

    .Cells(lngEndRow + 1, 3).Value = [営業窓口].Value
    .Cells(lngEndRow + 1, 4).Value = [営業所担当者].Value
    .Cells(lngEndRow + 1, 2).Hyperlinks.Add Anchor:=.Cells(lngEndRow + 1, 2), _
     Address:=constCosutomorSaveFolder & "\" & fileName, _
            TextToDisplay:=[お客様No].Value
’↑ハイパーリンク設定
  End With


    ' ハイパーリンク先にファイルを保存
    FileCopy constCosutomorGenshiFolder & "\" & constCosutomorGenshiFileName, _
        constCosutomorSaveFolder & "\" & fileName
        
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
一致するような情報がありませんでした。

### 補足
特になし

マクロのハイパーリンクのリンク先がローカルフォルダになっている

Accessに関しての質問です。
パソコン内に顧客の情報を管理しているフォルダーがあります。
そのフォルダーをAccessで作成してる顧客管理フォーム内のコマンドボタンから開きたいのですが調べてもこれといった情報が見つかりませんでした。
(検索不足でしたら申し訳ありません)

そのフォルダーは顧客テーブルのフィールドにハイパーリンク型のレコードとして格納されています。

顧客管理フォームのレコードソースは顧客テーブルになっております。

また、追加の仕様としてコマンドボタンを押したときフォルダーがまだ作成されていないようだったら新しくフォルダーを作れるようにしたいです。
例えば、
"C:\Users\name\Desktop\顧客管理\1~99\佐藤 花子"
上記のパスが顧客のフォルダーとして

もし上記のようなフォルダーがない場合
"C:\Users\name\Desktop\顧客管理\1~99"
このように1つ前のフォルダーを開くようにしたいです。

説明不足かもしれませんが必要な情報などありましたら教えてください。

宜しくお願い致します。

ハイパーリンクをコマンドボタンで開く方法

### 実現したいこと
htmlのリンクを指定通りに動作させたい


### 前提

スターサーバー上でWebサイトを構築しているのですが、
何故かブラウザ上ではアップしたソースの内容からリンク先が変わってしまい(best_eleven.php?no=3→test.php)、正常に画面遷移できません。
リンクは必ず自ページに書き換えられています。
例）test.phpにて以下の[該当のソースコード」の内容を記載すると、test.phpに遷移するように書き換えらています
ChromeのDevToolsで見るとこちらが想定しているリンクアドレス(best_eleven.php?no=3)になっています。

添付ファイルの詳細
図1：ブラウザ上での表示とリンクフォーカス時の遷移先アドレス（左下）
図２：アップしているソースのハードコピー
図３：ChromeのDevToolsの内容![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-09-01/0fb77d73-9a29-4bf5-b15d-298532642bfb.png)
```

### 該当のソースコード
<html>
	<head>
	</head>
	<body>
<a href src="best_eleven.php?no=3">aaaa</a>
	</body>
</html>

```ここに言語名を入力
ソースコード
```

### 試したこと

・他のソースファイルで確認
・ブラウザをEdgeに変更して確認
・PHPで動的にa タグの内容を生成


### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。


htmlのリンクが変わってしまう

お世話になります
Windows10を使用しています。
最近WordやExcelに画像をおいてハイパーリンクを設定してクリックしても宛先に飛ばない。
必要な情報をダウンロードできませんと表示される。
修正方法をお教えください。

office2016のWordやExcelでハイパーリンクを設定してもリンクエラー

<a href="/eventDetail?event= "<c:out value="${event.id}" />"

jspでサーブレットを呼び出すときに<a href を使ってparameterを渡したい

ExcelVBAでHYPERLINK.FOLLOWを使用したいのですが、
エラーになります。
実行状況
1.あらかじめ表に=HYPERLINK()関数でリンク表示済のセルを指定
2.1のセルを指定してHYPERLINK.FOLLOWを記述します。

ハイパーリンクを設定する際、VBAで設定したハイパーリンクしか受け付けないものでしょうか。

詳しい方、是非ともご協力お願い致します。
![イメージ説明](a1a620d8a1da8d993ac16eb668c2cd8e.png)

ExcelVBA HYPERLINK.FOLLOW エラー"438" 解決したい

### 前提・実現したいこと

初めて質問します。
jquery.csv.jsでCSVをインポートし、jQuery DataTablesで表組みを作成しています。
インポートするCSVの中に、https://aaa.com というようなURLがあり、
DataTablesで表組みにした際に、自動的にハイパーリンク化させたいのですが、
その方法が分かりません。どなたかご教授いただけますと幸いです。

### 該当のソースコード

```ここに言語を入力
$(document).ready(function() {
	$.when(
		$.ajax({
			url: 'list.csv', 
			cache: false,
			dataType: "text",
			beforeSend : function(xhr) {
				xhr.overrideMimeType('text/plain;charset=UTF-8');
			},
		})
	)
	.done(function(data) {
		data=$.csv()(data);
		console.info(data) 
		$.extend($.fn.dataTable.defaults, {
		language: {
		url: "https://cdn.datatables.net/plug-ins/9dcbecd42ad/i18n/Japanese.json"
		}
		});
		$('#list').DataTable({
			data:data,
			scrollX: true,
			autowidth: false
		});
	})
	.fail(function() {
		alert("データベースの読み込みエラーが発生しました。");
	});
});
```
```ここに言語を入力
<table id="list">
	<thead>
		<tr>
          	<th>あああ</th>
          	<th>いいい</th>
          	<th>ううう</th>
          	<th>えええ</th>
          	<th>おおお</th>
          	<th>かかか</th>
          	<th>ききき</th>
          	<th>URL</th>
		</tr>
	</thead>
	<tbody></tbody>
</table>
```