Excelでのハイパーリンクについて質問。番号にハイパーリンクを付けるとします。excel初心者です。EXCEL2000VBAでハイパーリンクの有無を調べたい。回答数ランキングです。削除このQ&Aと関連する良く見られている質問QEXCELでハイパーリンクの解除を行うと書式設定が失われるハイパーリンクの解除をおこなうと、セルの書式設定が解除されてしまいます。ハイパーリンクとして必要なところと、必要ないところ(単に記号的な使い方をしています)と分けているため、設定でハイパーリンクを無効にすると不便になってしまいます何か対処法はありますでしょうか?OSはMEでExcel2000にSR-1をあてています。ハイパーリンクを設定したセルに対し、ハイパーリンク→ハイパーリンクの削除を行うと『セルの書式が解除されるのをどうにかしたい』ということで考えてみました。『必要なところと、必要ないところ(単に記号的な使い方をしています)と分けているため』については、意味を理解できていません。見当違いの回答かもしれませんが、その場合はご容赦を。通常方法では思いつきませんので、ハイパーリンクのみを解除するマクロを書いてみました。(Excel2000)マクロでハイパーリンクを削除しても、セルの書式は初期化されてしまうみたいです。スタイル』でどうにかなるかと思いましたが、余り芳しくありませんでした。セルの書式を配列に全部覚えておければ簡単ですが、コーディングが大変みたいでした。コントロールのPropertiesコレクションのようなものがあれば楽ですが、Excelのセルに対してはないみたいです。結局、セルの値または式を退避しておき、ハイパーリンクごと消去し、値または式を復元する事にしました。アンダーラインについては、これがハイパーリンクのものか、意図的に引いたものか、または消してある場合もあるので、マクロを実行する時点のまま変更していません。マクロ内部でエラー処理を行っていますが、これは結合セルがあると消去が普通にできないからです。実際使ってみて、マクロをショートカットキーに登録しておけば便利かもしれません。列全体、全シートを処理すると時間がかかります。Sub回答がありませんね。ハイパーリンクを設定したセルに対し、ハイパーリンク→ハイパーリンクの削除を行うと『セルの書式が解除されるのをどうにかしたい』ということで考えてみました。『必要なところと、必要ないところ(単に記号的な使い方をしています)と分けているため』については、意味を理解できていません。見当違いの回答かもしれませんが、その場合はご容赦を。通常方法では思いつきませんので、ハイパーリンクのみを解除するマクロを書いてみました。VBAで業務を簡素化するために、現在開いているブックのファイル名を取得する方法が分かりません。作業手順をマクロを使って処理していますが、オリジナルのワークブックをファイル名を変えて保存し、以後、このワークブックを読み込んで使用しています。このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。常にファイル名を取得出来るVBAをどなたか、教えて下さい。操作対象になっているブックの名前はActiveWorkbook.Nameですね。>VBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになりというような文脈からすると、ThisWorkbook.Nameの方ですかね。他の回答も見るQEXCEL2000VBAでハイパーリンクの有無を調べたい。どなたか、知ってらっしゃる方がいらしゃいましたら、よろしくお願い致します。[環境]Windows2000EXCEL2000[質問]・下記のソースで、ハイパーリンクが設定されている項目をcmdボタンイベントから設定を外しました。ハイパーリンクが元データに設定されていない場合、Errが返ります。IfAベストアンサーselection.hyperlinks.countでリンクの数を取得すればよいかと。ユーザーフォームを閉じるユーザーフォームを開く時はUserForm1.Showですが閉じる時は?UserForm1.Closeだとコンパイルエラーになります。ユーザーフォームを閉じることができます。何度もお世話になります。A5:A20のどれかをクリックしたときにクリックしたセルが値が入力済みか確認してからファイルを名前を付けて保存したいのですがクリックしたという情報(イベント?)の取得方法がわかりません。(1)どのようにチェックすればよいのでしょうか?(2)また、皆さんはどのようにしてこのような問題を解決してるのでしょうか?よろしくお願いします。Subと入れると、クリックしたセルがA5からA20のどれかでかつセルに値が入っているときのみ”入力済み”とメッセージが表示されます。このメッセージ表示の部分を、「名前を付けて保存」の処理に置き換えてはいかがでしょうか。SubここでDMNの値を四捨五入したいです。これとは別に切上げ、切捨ても教えていただけるとありがたいです。引数で、対象桁を変更できます。他の回答も見るQ別のシートから値を取得するときWorksheets("シート名").Activate上記のを行ってから別シートの値を取得するのですが、この処理を行うと指定したシートへ強制的にとんでしまいます。~Worksheets("シートA").ActivateシートAの値取得:Worksheets("シートB").ActivateシートBの値取得Nextこのイメージ処理を行うとものすごい勢いで画面がチカチカします。シートを変えずに他のシートから値を取得する方法はないのでしょうか。別ブックから該当データを検索し、必要なデータを取得する方法について部品表というブックがありますA列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。R-134256また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。やりたいことは部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。xlAndと、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。部品表というブックがありますA列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。R-134256また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。やりたいことは部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。部品表は、何百種類もありますので、関数...続きを読むAベストアンサーこんにちは。実用性も踏まえました。メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。実用性も踏まえました。メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。Workbooks....続きを読む他の回答も見るQEXCELファイルのカレントフォルダを取得するには?EXCELファイルのカレントフォルダを取得するには?C:\経理\予算.xlsD:\2005年度\予算.xlsEXCEL97ファイルがあります。VBAでカレントフォルダ名(C:\経理\,D:\2005年度\)を取得する事は可能でしょうか?CURDIRでは上手い方法が見つかりませんでした。Aベストアンサーこんばんは。以下で試してみてください。適当なセルを選択する。(回答#1と同じ)その2全選択する前の選択範囲に戻る。Range(A1")⇔cells(1,1)の変換。Range(A1")⇔cells(1,1)の変換。ある条件でセルの塗り...5エクセル:一定以上の数値にな...6条件付書式で色づけしたセルの...7エクセルです。ある条件でセルの塗り...4エクセルです。先月の年と月6エクセル:一定以上の数値にな...7条件付書式で色づけしたセルの...8Wordで、上下二段の書式にしたい9Powerpointで、コピーすると、...10エクセルのメッセージ11条件付き書式が選択できない?!12EXCELで違う値の場合色を変えたい13Excelで、期限切れのリストが一...14色のリンクは出来ますか?【エク...15エクセルの書式設定が解除でき...16Excelで、空白を表示したい17条件付き書式のやり方。Inc.Q質問する(無料)Q&A検索goo検索gooIDで新規登録・ログイン新規登録する(無料)会員の方はこちら外部サービスのアカウントで新規登録・ログインYahoo!で新規登録・ログインGoogleで新規登録・ログインTwitterで新規登録・ログインFacebookで新規登録・ログインdアカウントで新規登録・ログイン※各種外部サービスのアカウントをお持ちの方はこちらから簡単に登録できます。お客様の許可なしに外部サービスに投稿することはございませんのでご安心ください。会員でない方、会員になるとあなたも質問や回答ができるようになります!!親切・丁寧な回答が集まる場30分以内に回答がもらえ回答数は平均3件!匿名(ニックネーム)での投稿なので。