FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

[Excel VBA] ハイパーリンクの数をカウント

■アクティブシートのセルに設定されているハイパーリンク数
Cells.Hyperlinks.Count

■アクティブシートのセル、画像、図形に設定されているハイパーリンク数
ActiveSheet.Hyperlinks.Count

もし画像、図形のハイパーリンク数を知りたいときはこれらを組み合わせて
ActiveSheet.Hyperlinks.Count - Cells.Hyperlinks.Count

とするといいかと思います。

[Excel VBA] スクロール位置を取得・設定

マクロでコピー・ペーストを使うとスクロールしてしまって、
マクロ開始時とは表示されている位置が変わってしまうのが不便に思うことはないでしょうか?

ScrollColumn、ScrollRowを使うことでスクロール位置を取得したり設定することができます。

例1:画面を一番左上にスクロール
Sub スクロール左上()
ActiveWindow.ScrollColumn = 1 'スクロール列
ActiveWindow.ScrollRow = 1 'スクロール行
End Sub

例2:マクロ開始時のスクロール位置に復元
このスクロール位置取得から設定の間に処理を入れれば表示位置がズレるということがなくなります
Sub スクロール復元()
Dim c As Long, l As Long

c = ActiveWindow.ScrollColumn 'スクロール列取得
l = ActiveWindow.ScrollRow 'スクロール行取得

ActiveWindow.ScrollColumn = c 'スクロール列設定
ActiveWindow.ScrollRow = l 'スクロール行設定
End Sub

[Excel VBA] 書式はそのままにハイパーリンクをクリアするマクロ

以前の記事と似たような内容ですが、こちらはマクロでハイパーリンクをクリアする方法です。
対象はExcel2010以降です。

ClearHyperlinks を使うと書式を崩さずにハイパーリンクを解除することができます。

'選択範囲内のハイパーリンクをクリア
Sub ハイパーリンククリア()
Selection.ClearHyperlinks
End Sub

これだけだと文字色が青のままだったり、下線がつきっぱなしなので
好みで以下のような命令で文字色を戻して下さい。
Selection.Font.ColorIndex = xlColorIndexAutomatic
Selection.Font.Underline = xlUnderlineStyleNone
秀丸スーパーライセンスパック [ダウンロード]筆まめVer.24 通常版ドラゴンクエストX 眠れる勇者と導きの盟友 オンライン 初回生産特典ゲーム内アイテムコード バージョン2運試しセット「カジノコインチケット銅」1枚+「ふくびき券」10枚同梱
リンク
カテゴリ
サイト内ランキング
順位 ページ hit
タグクラウド

Tips フリーソフト 動画 Excel Windows アクセスアップ HiMacroEx ゲーム Amazon Ancia ソフト開発 FC2 アンインストール 健康 トラフィックエクスチェンジ お菓子 アフィリエイト 寄付 料理 HTML 小遣い稼ぎ SetBrowserEx ブラウザ ファイラー イヤホン 商品 マルウェア 三国志 音楽 PC ヘアブラシ iPod 

最新記事
最新コメント
最新トラックバック
Amazon 売れ筋ソフト
検索フォーム
カレンダー
04 | 2017/03 | 05
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -
月別アーカイブ
RSSリンクの表示
ブロとも申請フォーム

この人とブロともになる

QRコード
QRコード
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。