銀行口座名の「ふりがなテキスト文字列」から、振込用のカタカナ口座名を作る。㈱や㈲は、カ)や、ユ)に変換する必要がある。Dim Kouzamei As String'入力した際の 「ふりがなテキスト文字列」が無ければ終了If Cells(ActiveCell.Row, "C").Phonetic.Text = "" Then Exit Su
更新情報
Excel-VBA 並べ替え用の「ふりがな」を隣のセルに自動表示。 Phonetic オブジェクト, Replace関数
並べ替え用の「ふりがな」を隣のセルに自動表示します。指定されたセルの「ふりがなテキスト文字列」を右隣のセルに表示します。(コピーした場合など、指定されたセルに「ふりがなテキスト文字列」が無いこともあります。)方法まず、指定したセルに「ふりがなテキスト文字
Excel-VBA セル範囲を検索して関連する複数のデータを転記 Range.Find メソッド(VLOOKUPやHLOOKUPは使わない)
コード番号を入力することで、複数の関連情報を転記する時に利用します。使用頻度の高く、重要度の高いサンプルコードです。ExcelVBAリファレンスに「Findメソッド」の使用例が次のように出ています。https://msdn.microsoft.com/ja-jp/library/office/ff839746.aspx--------
Excel-VBA データ入力便利機能: 表の最終列まで来たら、次行の開始列へ移動し、罫線も自動で追加する Worksheet_SelectionChange
まず・・・あるタイミングで、Enterキーを押した後の、セルの移動方向を右に行くように変更しておきます。 'セルの移動方向 右 Application.MoveAfterReturnDirection = xlToRight元に戻す時は、 'セルの移動方向 下(標準)に戻す Application.MoveAf
Excel-VBA フォントの色によって処理を変える ActiveCell.Font.Color
セルのフォントの色によって処理を変えたいという質問がありまして・・・Sub Macro1() 'フォントの色によって処理を変える Select Case ActiveCell.Font.Color Case vbBlack MsgBox "黒・自動"
Excel-VBA ソフト作り パブリック定数 : ワークシート名や、表の見出し行(列)番号、特定セル番号 の変更に備える Public Const
ワークシート名や、表の見出し行(列)番号、特定セルなどは、変更になる場合があります。その際には、「全て置換」で書き換えするのではなく、予めパブリック定数にしておく事で、修正を一カ所で済むようにしておく。私の場合は、新たに標準モジュールを挿入し、オブジェク
Excel-VBA ソフト作り ファイルを開く時に自動で動くプログラム Workbook_Open Workbook_BeforeClose Auto_Open Auto_Close
ファイルを開く時に自動で動いて欲しいプログラムがあります。例えば・・・ファイルを起動した時には、必ず最初に表示させたいワークシートがある場合。Enterキーを押した時にセルを移動する方向を、下方向ではなく右方向にしたい場合。ユーザーフォームを表示させたい場合。
Excel-VBA トラブル解決方法:Excelを閉じると「VBAProject パスワード」が表示される(DropBox使ってる?)
突然、Excelを閉じると「VBAProject パスワード」が表示されるようになりました。このトラブルの解決方法について発生条件 ExcelExcel VBA を保護するため、プロジェクトのプロパティに保護(プロジェクトのプロパティ表示のためのパスワード)をかけている場合。UserFormを
Excel-VBA CSVファイルを書き出す時にはセル内の改行に注意 Chr(10) Replace
CSVファイルを書き出す時には、セル内に改行がある場合があるので注意が必要です。CSVファイルの行中の思わぬ場所で改行されてしまいます。改行は、vbCr vbCrLf vbLf vbNewLine Chr(10) など色々な書き方がありますが、セル内の改行を取る時には、Chr(10) を
Excel-VBA ハイフンとカンマによる数値範囲の取得(例:1-20,30,40-50) 印刷範囲やCSV書き出し範囲で利用 Split
ユーザーフォームの TextBox3 に入力されたデータ1-20, 30, 40-50, 70,から、1以上20以下、30、40以上50以下、70 と導き出す事で、印刷範囲やCSV書き出し範囲として利用する文字や空白、ゼロは無視する事で、余計なカンマにも対応Sub csvtest() Dim tmp As Variant, tm
Excel-VBA 問題・トラブル・バグ 2014年12月10日のWindows Update でActiveXオブジェクトが挿入できない。コマンドボタンが押せない。MSForms.exdを削除! ( MSForms.exd KB2596927 KB2553154 KB2726958 )
2014年12月10日のWindows Update の後、ActiveXオブジェクトが使えなくなった。「オブジェクトが挿入できません」 と表示されたり、コマンドボタンが押せないなどのトラブルが発生しました。対応方法を調べ、トラブルを回避できました。私の行った方法を2つ書いておきます。
Excel-VBA ユーザーフォームを「Esc」キーで閉じる CommandButton CancelプロパティをTrue
ユーザーフォームをキーボードの「Esc」キーで閉じるにはユーザーフォームに CommandButton を使用して、「閉じる」ボタンを作ります。このCommandButton のプログラムの中に、Unload me と書いておきます。Private Sub CommandButton1_Click() Unload MeEnd Subこの
Excel-VBA セルの値が文字列かどうかの判定 TypeName
Sub Sample6() Dim i As Long For i = 1 To 5 If TypeName(Cells(i, "A").Value) = "String" Then MsgBox "このセルのデータは文字列です" End If Next i End
★Excel 2013対応 Excel-VBA ウィンドウ状態を設定 WindowState , DisplayFullScreen
シングルステップでプログラムを動かして、変化を確認してください。'Excel2013以上のバージョンでテストしてください'Excel2013では、アプリケーションウインドウの中でブックがxlNormalサイズになることはない'Excelブックのウインドウとアプリケーションのウインドウは一
Excel-VBA ウインドウのサイズと表示位置の設定 Application.width .Height .Top .Left
Sub WindowSet() With Application .WindowState = xlNormal If .Width < 1000 Then .Width = 1000 If .Height < 700 Then .Height = 700 .Top = 20 .Left = 50 End WithEnd Sub