FinePix A500...
x
Gizport

FinePix A500 マクロ初心者の解決方法

  • Q&A

  • 取扱説明書・マニュアル (文書検索対応分のみ)

 
"マクロ初心者"3 件の検索結果
全般
 
質問者が納得1つ目の最後の文字がBの場合 Sub Macro1() Dim I As Long '変数を定義しただけです For I = 1 To 500 '1~500行まで繰り返す If Right(Cells(I, 1).Value, 1) = "B" Then 'A列のI行の値の最後の1文字が"B"ならば以下を実行、違えば次の行へ移動する Range(Cells(I, "A"), Cells(I, "Z")).Cut '対象の行のA~...
4833日前view17
全般
 
質問者が納得> A1からA500までに~ > A510(510行目)へ貼り付け、 > 400行目を削除する 文字を含むデータと含まないデータの間に 空白行を9行挿入し、全体を509行とする、 と想定します。 (違う場合は適宜変更して下さい) ------------------------------------------- 作業列を2列挿入します(例えばB列・C列) B列には1から順に500まで入力(フィル) C1 =IF(ISERR(MID(A1,9,1)*1),1,0) C500...
4834日前view20
全般
 
質問者が納得ファイル名を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 = ...
5112日前view18
  1. 1

この製品について質問する