tsubuyuki の回答履歴

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

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

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

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」の拡張子ではマクロが正常に動かないものなのでしょうか。

VBAで現在プログラミングを勉強しています。 除数を利用し数値を割り出したいのですが、どうしてもオーバーフローしてしまいます。 Variant型にすればいいのかなと思い、全てVariant型で最入力したのですが、 上手く動きません。 整数と整数を割り算し、小数の答えが出ます。 それを小数点第２位まで丸めることをしたいと思っています。 どなたが助けていただけませんか、よろしくお願い致します。 以下、入力値です。 Dim ColumnB As Double, ColumnF As Long, ColumnI As Long ColumnB = ColumnI / ColumnF ColumnB = Application.WorksheetFunction.RoundDown(ColumnB, 2) With ThisWorkbook.Worksheets("COVER") .Range("B" & curRow) = ColumnB .Range("F" & curRow) = ColumnF .Range("I" & curRow) = ColumnI End With よろしくお願い致します。

宜しくお願いいたします。 Excel2003を使用しています。 毎日、環境測定結果をシートに入力しています。 最後に入力したセルに色を付ける方法はありますでしょうか。

excel 2007 です　1 book に４シート有りますが 表示が消えて現在のシートしか見られません officeボタン→表示→整列→「作業中のbookのwindowを整列する」に チェックを入れる→ok で夫々のシートの表題が表示され他の シートが見られます　が 一度クローズして又開くと元に戻っています 元に戻らないように固定させる方法方法を教えて下さい 又どうしてこの様になったのかも知りたいです

accessのフォームに表示されているデータを Excelワークシートにエクスポートをクリックし "ファイル形式はExcelブック(xlsx)"を選択したときにおける エクセルのファイルについてです。 そのエクセルの塗りつぶしの色をクリックすると 1回では塗れなく、2回目で色が変わるという状況です。 accessのテキストボックスの背景色で白に表示される色を 選択しているとこのような状況になることまではわかりましたが、 2回という手間を減らすため何か別の方法はないでしょうか？ なおフォームのデータはクエリビルダから複数のテーブルを 選択して作成してあるものです。 解る方がいらっしゃいましたら回答お願いします。

いつもお世話になります。 エクセル２０１３から搭載された　WEBSERVICEという関数を使って 郵便番号→住所の変換をしたいと思っています。 《参考にしたサイト》 http://www.ka-net.org/blog/?p=1933 ↑こちらに紹介されていた =FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $A2),"/ZIP_result/ADDRESS_value/value[@address]/@address") を使うと、簡単に住所変換できるのですが 都道府県～市までの情報が　表記されません。 ●●県●●市　も表記できるようにしたいのですが どのようにすればよいか　ご存じの方いらしたら教えてください。

いつもお世話になります。 エクセル２０１３から搭載された　WEBSERVICEという関数を使って 郵便番号→住所の変換をしたいと思っています。 《参考にしたサイト》 http://www.ka-net.org/blog/?p=1933 ↑こちらに紹介されていた =FILTERXML(WEBSERVICE("http://zip.cgis.biz/xml/zip.php?zn=" & $A2),"/ZIP_result/ADDRESS_value/value[@address]/@address") を使うと、簡単に住所変換できるのですが 都道府県～市までの情報が　表記されません。 ●●県●●市　も表記できるようにしたいのですが どのようにすればよいか　ご存じの方いらしたら教えてください。

【VBA】複数条件のVLOOKUP いつもこちらの識者の方々にはお世話になっています。 VBAの質問です。 sheet1に下記のような表があります。 品目　　　入荷日　　　出荷日 バナナ　　7月1日　　　7月5日 りんご　　7月5日　　　8月24日 みかん　　8月5日　　　8月30日 sheet2には下記の表があります。 品目　　　入荷日　　　出荷日　　　箱 バナナ　　7月1日　　　7月5日　　　黄 りんご　　7月5日　　　8月24日　　赤 みかん　　8月5日　　　8月30日　　オレンジ バナナ　　6月28日　　8月30日　　　緑 りんご　　6月20日　　7月5日　　　青 みかん　　6月18日　　8月24日　　朱 この表のsheet1の、品目・入荷日・出荷日の全ての項目が一致しているものをsheet2から探し、sheet1ののD2セル以降に箱の色をあてはめていきたいのですが、&で文字列をくっつけた検索用の行を作ることができないため難儀しています。 作業用の列を作らずにやる場合、どういった構文が適していますでしょうか。

タイトルが大雑把になってしまいすいません。 メモ帳のＡファイル、Ｂファイル、の内容を結合して、Ｃファイルを作成したいのですが、 Ａファイル １１（タブ）１１１１１１１ ２２２２２ ３３３３３（タブ）３３３ Ｂファイル ａａａａａａａ ｂｂｂｂｂｂｂｂｂ ｃｃｃｃｃｃｃｃ Ｃファイル １１（タブ）１１１１１１１ａａａａａａａ ２２２２２ｂｂｂｂｂｂｂｂｂ ３３３３３（タブ）３３３ｃｃｃｃｃｃｃｃ エクセルに文字列をコピーしてコンカチすれば通常文字列なら出来るのですが、 メモ帳の文字列にタブが入っていると、エクセルにうまくコピーできません。 簡単に文字列を結合して、Ｃファイルを作成することは出来ますか？ エクセルを使わない方法でも構いません。 宜しくお願いします。

こんな感じにしたいです。 下の表を参照して、セルに入力された値により、別のセルに数字を表示 **1___200___15000 201___400___18000 401___600___20000 この場合、 20と入力すると、別のセルに15000を返す 150と入力すると、別のセルに15000を返す 250と入力すると、別のセルに18000を返す よろしくお願いします。

映画のエンドロールのような動画をパワポで作ることは不可能ですか？ 音楽を流しつつ、文字を下からゆっくり上に流していきたいです。

フォームを開くと同時にコントロールを削除したいのですが、 Private Sub Form_Load()　イベントで、 DoCmd.OpenForm Me.Name, acDesign DeleteControl Me.Name, "コマンド9" こうしてみたのですが、別のビューに切り替えることはできません、となります。 DoCmd.OpenForm Me.Name, acDesign これをナシにすると、 DeleteControl Me.Name, "コマンド9" この部分で コントロールの作成と削除は、デザインビューまたはレイアウトビューで行います。 となります。 どうすればいいでしょうか？ アドバイスよろしくお願いします。

検索文字が右から何文字目にあるか文字位置を取得したいのですが ２文字指定できないのでしょうか？ Sub test01() Debug.Print InStr(1, StrReverse("abcde"), "cd") End Sub だと、0が返りますが、 Sub test02() Debug.Print InStr(1, StrReverse("abcde"), "c") End Sub だと３が返ります。 複数の文字の検索文字が右から何文字目にあるか文字位置をする方法を ご教授ください。

ｖｂａでフォルダを開く際に、サイズを細かく設定する方法はありますか？ Sub Sample() Shell "explorer C:\" End Sub これで開けるのですが、引数には、最大化などしかなくて、縦800、横600など、 指定した数値で開くことは不可能でしょうか？

はじめまして。 Excelで会社の在庫管理を始めようとしている者ですが、どうにもわからない事があり困ってます。 A=商品コード.B=商品名.C=サイズ.D=数量と、大きく4つに分かれている表としまして、一定数を下回ったものだけのA～Cを別シート内に集約させた表を作りたいと考えております。 要は、大量にある商品の中で『発注しないとヤバいぞ！』って項目だけをわかり易く見れたら素敵だな…と、考えてるわけです。 おわかりの方いらっしゃいましたら何卒ご協力お願い申し上げます。

エクセルのピボットテーブルについて記載された書籍は良く見かけますが アクセスのピボットテーブルについて詳しく知りたいのですが そのような事が詳しく記載された書籍が見つけられません。 ご存知の方いらっしゃいますか？ 書籍ではなくｗｅｂページで構わないです。 ご回答よろしくお願いします。