FinePix A500 内容の解決方法

質問者が納得ファイル名をA1.txtにしたいというので1ファイルを生成したいのかと思いましたが、 500個ファイルを作りたいなら下の通り。ファイル名は A1 (番号）.txt になります。 htmlファイルを作りたいなら".txt"を ".html"に変えて下さい。 Sub TXT2() Dim FN As Integer, i As Long, FNN, PS As String PS = ActiveWorkbook.Path FN = FreeFile For i = ...

質問者が納得こんにちは 『B列』のセル内容が変わったら から 『A列』のセル内容が変わったら に変わっていますが・・・ A列を入力⇒B列を入力したら A列のデータから『VLOOKUP関数』で『帳簿在庫』シートから 『C列』にデータを表示させ、D列に『C列』から『B列』をマイナスした数値を表示・・・かな？ 対象シートのシートモジュールに Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Or Targe...