Top> よくつかうプログラム> フォルダー内のデータ置換

VBA通信教材申込み

VBA課題解決型実践塾セミナー内容

申込 ヤフーショッピング

フォルダー内のデータ置換

フォルダー内の文字列置換

シート名が変更のあるブックが指定されたフォルダーの中に複数ある。
変更シートの決まったセルの場所1行2列の文字を置き換える
置換前:税抜き
置換後:税込
税抜の文字がどこかにあれば置換える。
変更するブックを準備しておく。

フォルダー内のデータ置換

変更データは色々ある。

置換1

1行2列のセルの文字を無条件ですべて税込で置換える。 部品集(ファイル関連)http://vba.asai.net/buhinbook.html
フォルダー内のすべてのファイルを処理するを使う。
Sub 置換1()
  Dim keisan As Long
  Dim buf As String
  Dim Path As String
  Path = "D:\文字列置換\指定1\指定11\"
  buf = Dir(Path & "*.xlsx")
  Do While buf <> ""
    Workbooks.Open Path & buf
    Worksheets("変更").Cells(1, 2) = "税込"
    ActiveWorkbook.Close
    buf = Dir()
  Loop
End Sub

フォルダー内のデータ置換

置換2

確認メッセージを出さないようにする。
Sub 置換2()
  Dim keisan As Long
  Dim buf As String
  Dim Path As String
  Path = "D:\文字列置換\指定1\指定11\"
  buf = Dir(Path & "*.xlsx")
  Do While buf <> ""
    Workbooks.Open Path & buf
    Worksheets("変更").Cells(1, 2) = "税込"
    Application.DisplayAlerts = False
    ActiveWorkbook.Close SaveChanges:=True
    Application.DisplayAlerts = True
    buf = Dir()
  Loop
End Sub

置換3

税抜きの文字がどこかにあれば税込に置き換える
部品集(関数)http://vba.asai.net/buhinfu.html
文字列の位置を返す関数InStrを使って文字があれば0でない条件で置換える。
Sub 置換3()
  Dim keisan As Long
  Dim buf As String
  Dim Path As String
  Path = "D:\文字列置換\指定1\指定11\"
  buf = Dir(Path & "*.xlsx")
  Do While buf <> ""
    Workbooks.Open Path & buf
    If InStr(Cells(1, 2), "税抜き") <> 0 Then
Cells(1, 2) = "税込"
    End If
    Application.DisplayAlerts = False
    ActiveWorkbook.Close SaveChanges:=True
    Application.DisplayAlerts = True
    buf = Dir()
  Loop
End Sub

 

 

塾長あいさつ
基本方針(考え方)
通信教育内容
課題解決セミナー内容
初心者基礎コース内容
カリキュラム・料金
案内地図・各種リンク
問合せ・申込み
アベノ塾
システムの内製化
アサイコンピュータACS
応用部品集(有料)
販売管理(事例)
財務管理(事例)
顧客管理(事例)
見積もり(事例)
給与(事例)
介護(事例)
ゴースト暗算(事例)
部品集(部品の基礎)
部品集(シート関連)
部品集(データベース)
部品集(セル関連)
部品集(関数)
部品集(フォーム関連)
部品集(ブック関連)
部品集(その他)
変数の勉強
繰り返しと条件文
マスター登録.訂正.削除
フォルダー内のファイル
項目をシート名で作成
ブックの操作
CSVファイルの取り込み
呼び出し元・先
商品マスター検索
エクセル関数をVBAで
エクセル関数を使う
よくつかうプログラム
販売管理(ソース)
財務管理(ソース)
給与管理(概要・画面)
見積もり(概要・画面)
工程管理(概要・画面)
原価管理(概要・画面)