tsubuyukiのプロフィール

@tsubuyuki tsubuyuki
ありがとう数1,522
質問数0
回答数2,299
ベストアンサー数
699
ベストアンサー率
45%
お礼率
0%

  • 登録日2009/03/13
  • 500行の中から、多い順に抽出する方法

    A列に一連番号、B列に型式、C列に製造番号、D列に販売月日が入力されています。 B列には複数のデータがランダムに入力されておりますが、それを多い順に一覧表にできるマクロがあれば…と考えています。 なにかいいアイデアはないでしょうか?

  • エクセル 今日の出荷数が知りたい。

    自動で日付が表示された下のマスに その日の出荷数を表示させたいです。 C2 が =DATE(2014,2,1) B6 が =$C$2+1 E5 が =TODAY() よろしくお願いします。

    • yukhfs
    • 回答数4
  • Excel 2003 VBA ワークシート 固定

    質問させて頂きます。 現在、Worksheet1にカレンダーなどを作成しているのですが A列~D列までスクロール可能。以降の列はスクロール無効。と行いたいのですが可能でしょうか? 可能で有るならば是非教えて頂きたいです。(詳細らも記載して頂くと有難いです。)

    • noname#193651
    • 回答数2
  • VBAプロシージャの間違いを添削願います

    A列からD列にかけてデータが入力されます。B列には4桁の数値が入力されており、 この4桁の数値を利用して、次のようにデータを管理したいと思います。 1.4桁の数値が同じものを抽出する。 2.抽出された数値は、最初に出現している数値の下の行に挿入する。 3.最初に出現している数値以外は削除する。 4.各行は空行が無い状態とする。 これをプロシージャにしたものが下記です。 Sub 重複行削除() Dim lastgyou As Integer Dim i As Integer Dim j As Integer Dim atai As Integer lastgyou = Range("B1").End(xlDown).Row For i = 1 To lastgyou - 1 atai = Cells(i, 2).Value For j = i + 1 To lastgyou If atai = Cells(j, 2).Value Then If j <> i + 1 Then Rows(j).Cut Rows(i + 1).Insert Shift:=xlDown End If i = i + 1 End If Next j Next i End Sub としましたが、重複行が削除されません。 ご教授をお願いいたします。

  • マクロで参照するファイルの拡張子

    マクロを使って集計作業をしています。 マクロでは複数のファイルから"vlook up"を使ってデータを参照しています。 今回参照するExcelファイルの拡張子が「xls」から「xlsx」に変わったのですが、 マクロを走らせるとエラーになりデバッグが立ち上がります。 マクロの編集で参照するファイルの拡張子を「xlsx」に変更したのですが、 やはりエラーとなり、集計がストップしてしまいます。 どうデバッグすれば良いのか分かりません。 そもそも「xlsx」の拡張子ではマクロが正常に動かないものなのでしょうか。