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列に1を入力してオートフィルします。 （1～A列最後500位まで数を振ります） B列を1行目から500行目までコピーしてB列最後にくっつけます。 B列で並び替え（昇順）をします。 これで一行置きに出来ます。 後はB列を削除してください。

質問者が納得通常、VBAでは条件付き書式なんて使いません。 If…Then…Elseステートメントを使って条件に合っているかどうかを判断し色付けを行います。さらに、doステートメントやforステートメントを使ってセル範囲に繰り返します。 例えば、A2:A500のセル範囲に「*」が入力されていたら灰色に塗りつぶし、空欄ならば黄色に塗りつぶすには下のようなコードになるでしょう。 For i = 2 To 500 If Cells(i, "B") = "*" Then Cells...

質問者が納得列番号Aを押下して、 データ→区切り位置1/3→何もしないで次へ2/3→次へと3/3で、 列のデータ形式で「日付」にチェックしてＯＫします。 これで8桁の数字が日付形式に変わりますので、 セルの表示形式で「H13.3.31」形式を選択してください。 （ユーザー定義で、ge.m.dとしてもＯＫです） そのうえで、B2に、 =DATEDIF(A1,"2010/6/1","Y")&"歳"&DATEDIF(A1,"2010/6/1...

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

質問者が納得開いていない（Ｅｘｃｅｌでデータを参照することが出来ない）ブックのデータを使う事はできません。 これに対処するには、 １）今年のブックを開く時にマクロを起動するようにしておき、マクロで去年のブックを開くと良いです。 ２）もしくは去年のブックで必要なワークシートを今年のブックにコピーしておき、関数はコピーしたワークシートを参照するようにします。ファイルサイズが大きくなりますが、１つのブックで全ての処理が済むので扱いが簡単です。（マクロで去年のブックを開く方式は、去年のブックのファイルの保存場所が判ったり、...

質問者が納得今年の表があるということは、県名リストがあるんですよね。であれば簡単です。 であれば、 =SUMPRODUCT(($B$2:$B$500=F1)*($A$2:$A$500<=DATE(2008,9,31))) ここでF1セルは集計された県名が入力されているセルになります。 結果は、ピボットで集計しているのと同じような表になります。 ------------------------- １：オートフィルタで2008/9/30 以下にする。 ２：A1から最終行まで選択 ３：ピボットテーブルで集計 一回だけ...

質問者が納得=AVERAGE(B1:INDEX(B:B,COUNT(A:A))) でいかがでしょうか？ 別シートで算出するなら、↓のようになります。 =AVERAGE(Sheet1!B1:INDEX(Sheet1!B:B,COUNT(Sheet1!A:A)))

質問者が納得こんにちは～＾＾ 11/2と1/12の違いってどう判断しましょ？