差分

*=====[[Excel VBA セルからテキストを取得|セルからテキストを取得]]=====----*[[Excel VBA セルからテキストを取得|セルからテキストを取得]]=====[[Excel VBA 最終更新日を取得|最終更新日を取得]]=====----[[Excel VBA 最終更新日を取得|最終更新日を取得]]=====[[Excel VBA シートを設定ファイルとして利用する|シートを設定ファイルとして利用する]]=====----*[[Excel VBA シートを設定ファイルとして利用する|シートを設定ファイルとして利用する]]*=====[[Excel VBA ユーザフォームを閉じさせない|ユーザフォームを閉じさせない]]=====----*[[Excel VBA ユーザフォームを閉じさせない|ユーザフォームを閉じさせない]]=====[[Excel VBA 確認のダイアログを表示させない|確認のダイアログを表示させない]]=====----[[Excel VBA 確認のダイアログを表示させない|確認のダイアログを表示させない]]=====[[Excel VBA 最後のセルを取得|最後のセルを取得]]=====----*[[Excel VBA 最後のセルを取得|最後のセルを取得]]*=====[[Excel VBA オートフィルタをシート間で同期|オートフィルタをシート間で同期]]=====----*[[Excel VBA オートフィルタをシート間で同期|オートフィルタをシート間で同期]]=====[[Excel VBA オートフィルタをで行が隠れているか判定|オートフィルタをで行が隠れているか判定]]=====----[[Excel VBA オートフィルタをで行が隠れているか判定|オートフィルタをで行が隠れているか判定]]=====[[Excel VBA シート名を指定してハイパーリンクを作成|シート名を指定してハイパーリンクを作成]]=====----*[[Excel VBA シート名を指定してハイパーリンクを作成|シート名を指定してハイパーリンクを作成]]*=====[[Excel VBA すべてのシートに対して一括置換|すべてのシートに対して一括置換]]=====----[[Excel VBA すべてのシートに対して一括置換|すべてのシートに対して一括置換]]=====[[Excel VBA 処理中一時的に自動計算をとめる|処理中一時的に自動計算をとめる]]=====----*[[Excel VBA 処理中一時的に自動計算をとめる|処理中一時的に自動計算をとめる]] =====選択された範囲を処理=======<pre> If TypeName(Selection) = "Range" Then For Each c In Selection.Cells Debug.Print c.Value Next End If</pre>