質問です。

今、EXCELのハイパーリンク先としてmynetworkの中の別のパソコンにあるファイルを参照しているのですが、参照先を別のパソコンへ変更しようと考えておりまして、その場合、リンク先のアドレスを一括で変更できる方法はないかと思いまして質問させて頂きました。

参照ファイルが沢山あるため、全てを変更するのは、
とても大変でして、変更したい部分は、マシン名だけなのですが、なにか良い方法がありましたら、教えて頂けないでしょうか?
宜しく御願いします。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

すみません。

 ちょっと、訂正です。 
コードの先頭に Option Compare Text を1行 追加しただけですが、
こちらのコードをコピーして使ってください。 大文字/小文字 識別の関係です。

> リンク先のアドレスを一括で変更できる方法・・・・・

ハイパーリンク先は、編集-->置換 では、出来ないと思います。

「一括」となるとVBAで処理することになるかと思います。

次の操作することにより、一発でブック内のハイパーリンク先が、全て置換えに
なりますので、宜しかったら、詳しく手順を書きますので、テストしてみてください。

【 操作手順 】

・ いずれかのシート名タブを右クリックして「コードの表示」を指定し、
 開いたコードウィンドウに下記コードをコピーして貼り付けます。

・ コードの設定事項で「検索文字列」と「置換え文字列」を指定します。
 (現在は、アドレスに含む abc の部分を xyz に置換えるという設定です。)

・ 貼り付けたコード内(1行目とか)にカーソルがある状態で、F5キーを押し実行ます。

・ これで、ハイパーリンク先が置換えになりますので、今貼り付けたコードを全て削除
 してから、右上の×で閉じ、シートに戻ります。
 
これで完了です。 ハイパーリンク先が、変更になっているか、確認してみてください。

Option Compare Text
Sub ChgLinkAdd()
'全シート ハイパーリンク先置換え
'-------- 設定事項 --------------------
Const Old_Add_Part = "abc" '    <------ 検索文字列
Const New_Add_Part = "xyz" '   <------ 置換え文字列
'-------------------------------------
Dim Sh As Worksheet
Dim Hyp As Hyperlink
Dim Rng As Range
Dim Cnt As Long
For Each Sh In Worksheets
  For Each Hyp In Sh.Hyperlinks
    If InStr(Hyp.Address, Old_Add_Part) > 0 Then
      Hyp.Address = Replace(Hyp.Address, _
      Old_Add_Part, New_Add_Part, , , vbTextCompare)
      Cnt = Cnt + 1
    End If
  Next Hyp
Next Sh
MsgBox "ハイパーリンク先 " & Cnt & _
    " 箇所を置換えしました。", , "置換え完了"
End Sub
    • good
    • 0
この回答へのお礼

有難う御座いました。
助かりました。

お礼日時:2005/04/13 01:23

> リンク先のアドレスを一括で変更できる方法・・・・・



ハイパーリンク先は、編集-->置換 では、出来ないと思います。

「一括」となるとVBAで処理することになるかと思います。

次の操作することにより、一発でブック内のハイパーリンク先が、全て置換えに
なりますので、宜しかったら、詳しく手順を書きますので、テストしてみてください。

【 操作手順 】

・ いずれかのシート名タブを右クリックして「コードの表示」を指定し、
 開いたコードウィンドウに下記コードをコピーして貼り付けます。

・ コードの設定事項で「検索文字列」と「置換え文字列」を指定します。
 (現在は、アドレスに含む abc の部分を xyz に置換えるという設定です。)

・ 貼り付けたコード内(1行目とか)にカーソルがある状態で、F5キーを押し実行ます。

・ これで、リンク先アドレスが、全て置換えになりますので、今貼り付けたコードを
全て削除してから、右上の×で閉じ、シートに戻ります。
 
これで完了です。 ハイパーリンク先が、変更になっているか、確認してみてください。


Sub ChgLinkAdd()
'全シート ハイパーリンク先置換え
'-------- 設定事項 --------------------
Const Old_Add_Part = "abc" '    <------ 検索文字列
Const New_Add_Part = "xyz" '   <------ 置換え文字列
'-------------------------------------
Dim Sh As Worksheet
Dim Hyp As Hyperlink
Dim Rng As Range
Dim Cnt As Long
For Each Sh In Worksheets
  For Each Hyp In Sh.Hyperlinks
    If InStr(Hyp.Address, Old_Add_Part) > 0 Then
      Hyp.Address = Replace(Hyp.Address, _
      Old_Add_Part, New_Add_Part, , , vbTextCompare)
      Cnt = Cnt + 1
    End If
  Next Hyp
Next Sh
MsgBox "ハイパーリンク先 " & Cnt & _
    " 箇所を置換えしました。", , "置換え完了"
End Sub
    • good
    • 0

力技ですが新リンク先のPCに旧リンク先のPC名を付けることはできないのでしょうか?

    • good
    • 0

置換を使えばいいのでは?


編集>置換 または ctrl + h
です。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QEXCEL2010のハイパーリンク先の一括変更

EXCEL2010のハイパーリンク先の一括変更をしたいのですが、
\\TS-XHL6E6\ だけを削除して、このお尻の部分のリンクを生かしたいのですが、エクセル上で検索して、一括変更するには、どうすればよいのでしょうか?

Aベストアンサー

リンク先を別のブックに変更したいなら、リンクの編集から操作するのが簡単で確実です。

データタブの「リンクの編集」をクリックし、「リンク元の変更」で新しくリンクさせたいブックを指定してください。

Qハイパーリンクの張りなおし:excel 表のHLInk アドレス

Excelの表のB列の B2からB101セルまで文書名がハイパーリンクされ、その名前クリックでファイルサーバーの文書が表示されるようになっています。
最近、ファイルサーバーの頭のフォルダ名称が変わってしまったためリンクを張りなおしが必要。
100個分手でやる必要ありますか。
簡単な方法あれば教えてください。
 新アドレス(ハイパーリンクの編集のアドレス)   旧アドレス
B2  \\abc\xxx\xxxxx\xx--\xx.doc  →\\def\xxx\xxxxx\xx--\xx.doc 
B3  \\abc\xxx\xxxxx\xx--\xx.xls  →\\def\xxx\xxxxx\xx--\xx.xls 
――
B101  省略

Aベストアンサー

マクロで一気にやる方法です。
Alt+F11でVBAの画面を起動し、「挿入」>「標準モジュール」を選択して、右側の画面に以下のマクロをコピーして貼り付けます。
(このマクロでは\\abcを\\defに置きかえています。実際のアドレスに置きかえてください)

Sub ハイパーリンクの置きかえ()
 Dim H As Hyperlink
 For Each H In Range("B2:B101").Hyperlinks
  H.Address = Replace(H.Address, "\\abc", "\\def")
 Next
End Sub

Alt+F11でExcelの画面に戻り、Alt+F8から上記マクロを実行すると、ハイパーリンクが置き換わります。

QExcel VBA マクロ処理 リンク先参照変更方法

Excel VBA マクロ処理 リンク先参照変更方法で質問です。

データがあるsheet名を『データ』、
平均を集計するsheet名を『平均集計』とします。

行いたい処理は
『データ』にある【 】内の5コのデータの平均値をまとめたい。
『平均集計』に平均値を集計してまとめる。
5コデータの平均値を既に参照指定済のsheetを使用します。

***『データ』詳細**********
縦軸【1×5】×25項目 = 130行
横軸に13列 A~M列
**************************

■教えて欲しい処理部分はここ!
『平均集計』リンク参照先を一気に変更させたい。

ActiveCell.FormulaR1C1 = "=AVERAGE('リンク参照'!R[★]C:R[★]C)"
↑上記のリンク参照先を一気に変更させる方法はありますでしょうか?
例>
ActiveCell.FormulaR1C1 = "=AVERAGE('リンク参照先変更'!R[★]C:R[★]C)"
のように…。

あと補足で、教えて欲しいのですが…
★データが追加された場合 例>5 → 7
この時行う処理方法がよくわかりません…。

単発だと
ActiveCell.FormulaR1C1 = "=AVERAGE('リンク参照先変更'!R[1]C:R[7]C)"
で可能ですが…

↓ 複数になると… 
x=1
y=7
FOR i=1 to 25
ActiveCell.FormulaR1C1 = "=AVERAGE('リンク参照先変更'!R[x]C:R[y]C)"
x=y+1
y=y*(i+1)
NEXT
…エラーになりました。
追加処理の場合、どのような方法がありますでしょうか?

以上、アドバイスよろしくお願い致しますm(__)m

Excel VBA マクロ処理 リンク先参照変更方法で質問です。

データがあるsheet名を『データ』、
平均を集計するsheet名を『平均集計』とします。

行いたい処理は
『データ』にある【 】内の5コのデータの平均値をまとめたい。
『平均集計』に平均値を集計してまとめる。
5コデータの平均値を既に参照指定済のsheetを使用します。

***『データ』詳細**********
縦軸【1×5】×25項目 = 130行
横軸に13列 A~M列
**************************

■教えて欲しい処理部分はここ!
『平均集計』リンク...続きを読む

Aベストアンサー

こんにちは。

私は、ご質問を良く理解しているわけではないけれども、A1方式をお使いなら、FormulaLocal でやってみたらいかがですか?

>『平均集計』リンク参照先を一気に変更させたい。
これって、編集-置換で出来ませんか?マクロということもないと思います。

>補足で、教えて欲しいのですが…

最初に、Range(Cells(3, 1), Cells(9, 1)) または、Range("A3:A10") でも可
つまり、最初の「ものさし」です。

それから、本来、ActiveCell というのは、可変ですから、位置決めしたほうが安全です。あまり、記録マクロみたいな書き方をすると、返ってややこしいです。

後は、こんなことかなって思います。

Sub TestSample()
  Dim rng As Range, i As Long, j As Long

  '---------------------------------------
  ''要設定 '目的のシートの最初の範囲のアドレス
  Set rng = Range(Cells(3, 1), Cells(9, 1))
  '---------------------------------------

  ''ActiveCell の位置決めが必要 以下に設定
  'Range("A1").Select

  For i = 0 To 24 '最初を含めるので1を引く
   For j = 0 To 12 '1を減らす

     ActiveCell.Offset(i, j).FormulaLocal = "=Average(リンク参照先変更!" & rng.Offset(i * 5, j).Address(0, 0) & ")"

   Next j
  Next i
End Sub

こんにちは。

私は、ご質問を良く理解しているわけではないけれども、A1方式をお使いなら、FormulaLocal でやってみたらいかがですか?

>『平均集計』リンク参照先を一気に変更させたい。
これって、編集-置換で出来ませんか?マクロということもないと思います。

>補足で、教えて欲しいのですが…

最初に、Range(Cells(3, 1), Cells(9, 1)) または、Range("A3:A10") でも可
つまり、最初の「ものさし」です。

それから、本来、ActiveCell というのは、可変ですから、位置決めしたほうが安全...続きを読む

QExcel 2010 セルのリンク一括変更

お世話になります。
当方、Excel 2010を使っております。

動画を外付けのハードディスクに保管し、Excelで一覧表を作りハイパーリンクを使って、
一覧表の動画名をクリックすると、その動画が立ち上がるようにしています。

今回、外付けのハードディスクが満杯になり、もう一台外付けのハードディスクを購入し、
動画の半分を新規の外付けのハードディスクに移動したいのですが、リンク切れを一括して
修正する方法はないでしょうか?

もし有れば、どなたか教えていただけませんでしょうか?
よろしくお願い致します。

参考
HD-LBU2(G:)の「ビデオ関係」フォルダの「Iphone用動画」フォルダの中身を
フォルダごと、AVHD-U(F:)に「ビデオ関係」フォルダを作成し、その中に移動させる。

Aベストアンサー

標準の機能で出来ることは、何もありません。
○最初にハイパーリンクを埋める「前に」ブックのプロパティで「ハイパーリンクの基点」を設定してからハイパーリンクを取り付けていれば、基点アドレスを修正するだけで対処できました。
○埋め込みのハイパーリンクじゃなく、HYPERLINK関数を使っていれば、単に置換するだけで出来ました。

×「リンクの編集」では、ハイパーリンクを付け替える事はできません。
×Excel2003などであれば標準オマケソフトの「Microsoft Script Editor」を使って埋め込みハイパーリンクの編集(置換)が出来ましたが、Excel2010には付いてません。



というワケで、次のようにしてみます。
手順:
ALT+F11を押す
現れたシートで挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
 dim h as hyperlink
 for each h in activesheet.hyperlinks
  h.address = replace(h.address, "G:\", "F:\")
 next
end sub

ファイルメニューから終了してエクセルに戻る
ALT+F8を押してマクロを実行する。

#言わずもがなですが、ゲンブツをF:に移動しておいてから行います。

標準の機能で出来ることは、何もありません。
○最初にハイパーリンクを埋める「前に」ブックのプロパティで「ハイパーリンクの基点」を設定してからハイパーリンクを取り付けていれば、基点アドレスを修正するだけで対処できました。
○埋め込みのハイパーリンクじゃなく、HYPERLINK関数を使っていれば、単に置換するだけで出来ました。

×「リンクの編集」では、ハイパーリンクを付け替える事はできません。
×Excel2003などであれば標準オマケソフトの「Microsoft Script Editor」を使って埋め込みハイパーリンク...続きを読む

QExcel でハイパーリンクも一緒に変更する方法。

こんにちは☆

あるURLをエクセルで管理しています。

例えば、http://aaa.com/01/
と言った数字が最後に来るので、
最後が01~200までドラッグダウン(?)しました。

でも、リンク先は全部http://aaa.com/01/になってしまいます。

表示は、
http://aaa.com/01/
http://aaa.com/02/
http://aaa.com/03/

となっていても、

リンク先は、
http://aaa.com/01/
http://aaa.com/01/
http://aaa.com/01/

なんです。これを一括してずらりと変更する方法はないでしょうか?
よろしくお願いします。

Aベストアンサー

既に解決されたようですが、ご参考までに。

十数件程度であれば私も#1さんの方法でやりますが、
もし数百数千となれば、Enterを順に押していくのも一苦労ですね。
もっとスマートな方法がありそうな気もしますが、
私が試した中では下記の手順がもっとも早いように思われました。

1.HYPERLINK関数で正しい関数リンクをつくる
 まず#2さんが提案された方法で関数リンクを作ります。
 必ずしも別のシートである必要はありません。
 リンク先が変になってる元の文字列が、A列1行目からあるとすると、
 同じシートの適当な列の1行目で、

 =HYPERLINK(A1)

 としてフィル。

 これでリンク自体はできますが、
 このままだとA列をずっと残しておく必要があるので…

2.関数のリンクを、普通のリンクになおす
 Excelを起動するアイコンを使って新しいブックを開く。
 ※新規作成ボタンではなく>Excel自体の起動アイコン<を使うのがポイントです。

 1で作った正しい関数リンクをコピーして、
 新しいブックに[形式を選択して貼り付け]
 [貼り付ける形式]で[HTML]を選択してOKをクリック
 ※起動アイコンから起ち上げた別個のExcelなので、普通とは表示が違います。

3.元のブックに戻す
 2で作った正しい書式リンクをコピーして、
 元のファイルのA列に、今度は普通に貼り付けます。
 1で作った関数リンクは臨時のものなので削除してかまいません。

説明が長くなってしまいましたが、
慣れれば、たとえ数千件あろうと2分程度で済む作業です。

既に解決されたようですが、ご参考までに。

十数件程度であれば私も#1さんの方法でやりますが、
もし数百数千となれば、Enterを順に押していくのも一苦労ですね。
もっとスマートな方法がありそうな気もしますが、
私が試した中では下記の手順がもっとも早いように思われました。

1.HYPERLINK関数で正しい関数リンクをつくる
 まず#2さんが提案された方法で関数リンクを作ります。
 必ずしも別のシートである必要はありません。
 リンク先が変になってる元の文字列が、A列1行目からあるとすると...続きを読む

QExcel ハイパーリンク先のセルを自動で変更したい

いつもお世話になっております。

A列に日付を順に入力しました。

A1 2005/07/19
A2 2005/07/20
A3 2005/07/21



こんな感じに2年先まで入力しました。

そこへあるセルにハイパーリンクを設定するのですが、リンク先をシステム日付(今日日付)のセルに行くように仕向けたいのですが可能でしょうか。

例えば、
今日が2005/7/20ならリンク先はA2へ
今日が2005/7/21ならリンク先はA3へ

宜しくお願い致します。

Aベストアンサー

#1のmshr1962です。先ほどの式A列を対象にした時に+1を外すのを忘れてました...

本題ですが別シートなら
=HYPERLINK("#シート名!A"&(MATCH(TODAY(),シート名!$A:$A,1)),"今日")
でできます。"今日"の所は表示したい名称か値に変更してください。

解説
MATCH(TODAY(),$A:$A,1)はA列から今日の日付[TODAY()]を探して位置を割り出しています。
(存在しない場合は直前の行へとびます。)
位置がわかれば
"#A"&(位置)で飛び先のアドレス[今日が2005/7/20ならリンク先はA2へ]になります。
頭の#は同じブックを表す符号です。
異なるシートの場合は、シート名+!で設定できます。

QエクセルでURL挿入後、名前を変える方法を教えて!

こんにちわ。
エクセルで作ったシートの中にURLを入れてから名前を変更したいです。
具体的にいうと妙高山のところにURLをいれても妙高山の表示がでる方法を教えてください。
どうやってもできません。わかる方教えてください。
お願いします。

Aベストアンサー

妙高山と書いてあるセルを右クリックして、「ハイパーリンク(H)」を選択

表示文字列を「妙高山」のままにして、アドレスの部分に任意のURLを貼り付けてOKをクリック

では駄目でしょうか?

QエクセルでハイパーリンクのURLだけを文字抽出したい

ホームページからコピーし、エクセルにリンク文字をペーストすると、青文字(文字にハイパーリンクがかかった状態)が貼りつきます。その張り付いた文字の、リンク先URLを文字としてほしい(http○○・・)のですが、できますか?
青文字を右クリックしてハイパーリンクの編集からURLは見られるのですが、たくさんのリンクリストからURLだけを抽出するのが大変なので、よい方法がありましたらお願いします。

Aベストアンサー

No3 です。
サブアドレスの存在を忘れていました。
訂正です。

Public Sub GetURL()
  Dim h As Hyperlink
  Dim a As String
  Dim s As String
  For Each h In ActiveSheet.Hyperlinks
    a = h.Address
    s = h.SubAddress
    If s <> "" Then
      a = a & "#" & s
    End If
    h.Range.Offset(0, 1) = a
  Next
End Sub

QExcelのハイパーリンクのアドレスが勝手に変わる

Excel2000での出来事です。

自身のPCフォルダを素早く開くショートカット目的として
C:\Program Files\ などをハイパーリンクで設定しています。

設定してその日は問題なくクリックすることで目的のフォルダが開くのですが、
別の日に改めてクリックすると「このサイトのアドレスは正しくありません」
とメッセージが出てしまいます。

ハイパーリンクの編集を見てみると
C:\Program Files\ と設定していたにもかかわらず
..\..\..\Program Files\ となっているのです。

これはどうしてでしょうか?
なお、いろいろ試しましたがこの現象は、自分自身のPCフォルダを開くときだけで
サーバのフォルダを開く目的でのリンクを張ったりした場合は問題ありません。

たとえば
http://www.yahoo.co.jp/ ←yahooのページ
Z:\server\ ←サーバにあるserverフォルダを開くリンク
C:\server\ ←自分自身のPCのCドライブにあるserverファイルを開くリンク
こんなのを作るとします。

これが気がつくと
http://www.yahoo.co.jp/ ←問題なし
Z:\server\ ←問題なし
..\..\..\server\ ←変化!
必ずこう変化してしまうんです。

変化してしまうタイミングは不明なのですが
その日のうちにExcelを閉じて、開きなおす、PC再起動する、程度では変化しません。
違う日にアクセスしようとすると勝手に変わってるのです。
なお、このファイルは私しか使用していないので
他の人が勝手にいじるということはありません。

また、リンクをfile///のやり方でも同様の現象が起きています。
使用OSはWindowsXPプロフェッショナルです。

どなたか解決方法がわかる方
是非お願いします。
よろしくお願いします。

Excel2000での出来事です。

自身のPCフォルダを素早く開くショートカット目的として
C:\Program Files\ などをハイパーリンクで設定しています。

設定してその日は問題なくクリックすることで目的のフォルダが開くのですが、
別の日に改めてクリックすると「このサイトのアドレスは正しくありません」
とメッセージが出てしまいます。

ハイパーリンクの編集を見てみると
C:\Program Files\ と設定していたにもかかわらず
..\..\..\Program Files\ となっているのです。

これはどうしてでしょう...続きを読む

Aベストアンサー

Excel2000でメニュがーどうなっているか分かりませんが、
絶対パスに指定してある状態で(相対パスになっていたら絶対パスにしてから)

ツール→オプション→全般(タブ)→Webオプション→ファイル(タブ)の中の保存時のリンク更新のチェックを外す…でいかがでしょうか?

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報