コーディング

文字列を分割して1文字ずつセル入力する、VBAのサンプルコードを紹介します。いわゆるExcel方眼紙で1文字1セル入力する形態をVBAコードでやろうというわけです。仕様試しに以下のようなExcelシートを用意して、1文字ずつセルに入力するVBAコードを作成します。実行前実行後(イメージ)サンプルコードとテスト大きく2種類のソースコードを作って実現してみました。一般的な方法一つ目はよく見かける一般的なソースコードです。（細かいところは、人によって違ったりするのですが・・・）入力テキストの1文字目からMid関数で1文字ずつ取得して、1文字ずつOffset関数でターゲットのセルに格納します。コード(1レコード)Sub splitText1record() '入力テキスト Dim intext As String intext = ActiveSheet.Cells(1, 1).Value '出力テキストのスタート位置 Dim targetRange As Range Set targetRange = Range(Cells(1, 2).Address) Dim i As Long For ...

シート名毎にExcelファイルを分割するVBAのサンプルコードを紹介します。仕様1ブックに複数のシートが存在するExcelファイルを、シートごとにファイル分割します。実際に実行してみるために、以下のようなサンプルファイルを用意します。マクロで実行すると各シートがファイルに分裂します。実行完了後に、以下3ファイルができるイメージです。「AAA.xlsx」「BBB.xlsx」「CCC.xlsx」ソースコード今回はシートをいじらずそのまま出力したいので、シート上にボタン等は置きません。Visual Basic Editorを開き、ThisWorkbook上にそのまま、下記のSplitSheet()関数を配置しました。ソースコードOption ExplicitSub SplitSheet() Dim wkSheet As Worksheet Dim newBook As Workbook Dim newBookName As String Dim folderParent As String Dim i As Long 'シートの保存先 folderParent = ThisWorkbook....