DragDropイベントでファイル数を取得
複数ファイルを選択し、それをフォームにドラッグアンドドロップした時に、リストボックスにファイル名を表示させるようにしたのですが、そのファイル数を取得するにはどうしたらよいのでしょうか？
View Article別シートに分類毎にまとめ合計を算出
シート１の表－１に会社名、区分No.、作業班ごとに工数、金額が入力されておりシート２の表－２に会社別に工数、金額の合計を算出したい、区分、作業班が同じであれば１行に工数、金額を加算し違えば次行区分、作業班が追加され会社毎の合計を出したいのですが表－２の会社名は見やすくセル結合をしていますがセル範囲が一定とならないためそれぞれの行に会社名が入っても構いません。どなたかVBAコードが解る方宜しくお願いします。
View Article重複行を削除
重複する行をVBAコードで削除したいのですが A列 B列 C列 あ １ a あ １ a あ ２ a い １ a い ２ c い ２ c A列 B列 C列 あ １ a あ ２ a い １ a い ２ c のようにABC列同一文字は１行にしたいのですがVBAコード、関数の解る方ご教授願います。
View Articlevbスクリプトの引数の記述方法
ネットワークドライブ名を変更したい為、以下のBATファイルとVBスクリプトを作成しました。 ですが、どうも引数が渡せていないようです。 どこが間違っているのでしょうか？ どなたかご教授お願いします。 ◆BATファイル net use F: /delete net use F: \\○○\△△ set Drive = F set DriveName = PC_△△ cscript.exe...
View Article列の同文字を続けて下行へ移動
表－１A列に同文字"あ"があれば続けてその行を下行へ移動したいのですが表－２のようにA列に"あ"でまとめた行、次に"い"でまとめた行に入れ替えたいのですがVBAコードをお教え願います。
View ArticleA列に特定の文字と数字があればその行を削除
A列には大半が文字が入力されており特定の文字"自分"と一部数字があればその2,3,4行を削除し以下のように行を詰めたいのですがどなたかVBAコードの解る方お願いします。 A B C 1 鈴木 あ い 2 自分 う え 3 123 お あ 4 368 え う 5 江藤 え う ↓ A B C 1 鈴木 あ い 2 江藤 え う
View Articleセルに数式を入れずに計算結果のみを入力
B2:D11まで入力された文字と数値がありB,C列のマッチした文字の計算値をH列にいれたいのですが現在H列はVBAによりセルに数式が入っておりますが計算結果のみをH列に入力したいのですが尚、図では11行までですが行数が多い時を踏まえてVBAコードをご教授願います。
View ArticleVisual Studio Pro 2015
お世話になります。 Visual Studio Professional 2015 を購入して既定でインストールしました。 新規プロジェクトで Visual Basicのテンプレートにお決まりのようにあるはずの Windowsフォームがないのですが、どうしればテンプレートに表示されるようになるでしょうか？ Visual Studio Professional...
View ArticleA列の同文字終了で１行挿入後同文字行の合計値入力
Excel2013ですが表－１のA列同文字が終了したら同シートの表ー２のように１行挿入しD列に"合計"という文字、E,F列にA列の同文字に対しそれぞれに合計値を入れたいのですがVBAコードが解る方よろしくお願いします。
View Article重複行の枠線内内容分のみを削除
Excel2013ですがフォームがあり重複する行をExcel枠線を残しVBAコードでセル項目、数値のみ削除したいのですが A列 B列 C列 あ １ a あ １ a あ ２ a い １ a い ２ c い ２ c A列 B列 C列 あ １ a あ ２ a い １ a い ２ c...
View ArticleExcel VBA UsedRange範囲ソート
図のような中抜の一覧ができているとき、商品コードで空行を飛ばして並び替えをしたいのですが、下記だと空行まで（チョコからわたがしまで）しか対象になりません。 ---------------------------- Sub 並べ替え() With ActiveSheet.Sort .SortFields.Clear 'Key:=Range("A3")でソートする列とタイトル位置を指定...
View ArticleExcel VBA 列の値を調べてフラグ立て
図のようなリストのB列に商品番号が入っています。 ただし ・シリアル（番号）はB列に入っている（固定） ・データの最終行は未定（表による） ・データのある右端の列も未定（表による） このようなシートに対して、次のような操作ができるVBAのコードを教えてください。 1. データが入っている列の右端を調べ、そのさらに右列を入力列とする （ここではF、罫線など書式設定は不要） 2....
View ArticleExcel VBA 日付けでIF/Else仕訳
図のようなリストがあります。 「発売日」の日付けを判断するVBAを教えてください。 ・オレンジ色のセルと「発売日」のE列は固定で移動しません。 ・データの最終行は未定（表による、ここでは17行目、No.13が最後のデータ） ・データのある右端の列も未定（表による） ・表のタイトル行（No. シリアル・・・）は固定（4行目）...
View ArticleエクセルVbaで最終行まで数式をループ入力
よろしくお願いします。エクセルVba初心者です。 エクセルでの作業をvba化したいと思っています。 C列：苗字 D列：名前 E列：E2=$C2&" "&$D2 …これを最終行まで F列：全て数字の1を自動入力 これを Function NameNumber() n = Cells(Rows.Count, "D").End(xlDown).Row Dim Name As Long...
View Articleバーコードセル値に応じて表示内容を変えたい
A1に入るデータがあります。VLOOKUPにて随時データ値が変化するようにしています。 A1の値を元にバーコード（コード39）は出来たのですが、A1値が次のデータに変化時、バーコードがA1データに追随し表示されません。 A1データ変更時、バーコード（コード39）値も変化し表示したいですが教えてください。
View ArticleExcelVBAについて
以上～以下検索についてです。 現在、1文字以上一致で検索し、listboxに検索結果を表示させることができます コードは下記 Private Sub CommandButton1_Click() Dim lastRow As Long Dim myData, myData2(), myno Dim i As Long, j As Long, cn As Long With...
View Articleエクセル マクロ
If Target.Value = "" Then Exit Sub End If シートが空白のとき 選択されないようにするように教えていただいたのですが この分に B1：C11までの範囲 という条件をさらにつけたい場合は (B1:C11)をどのようにいれたらいいのでしょうか？
View ArticleVisual Basic 2015 Length
私は、確か「Visual Basic 2012」のときに、アンケートを集計するプログラムを書かなければならなくなり、時間はあったので、本を買って、調べながら、プログラムを作成しました。 そのとき、その本（今、友人宅にあり手元にはありませんが）には、文字列の長さは s.Length() という関数を使う（「s」は文字列変数）とありました。...
View ArticleVb.netで式の解を求めるにはどのようにすればい
可能かどうかも良く分かりませんが、Vb.netを使って下記の式の解（r）を求めたいのですが、全くどう考えればよいか分かりません。 (9600÷(1+r)) + (9600÷(1+r)×(1+r)) + (9600÷(1+r)×(1+r)×(1+r)) + (9600÷(1+r)×(1+r)×(1+r)×(1+r)) + (9600÷(1+r)×(1+r)×(1+r)×(1+r)×(1+r)) =...
View Articleシステム日付が西暦なのかチェックしたい（VB）
VBで、 システム日付が西暦なのかどうかチェックしたいです。 西暦かどうかを確認する方法はありますでしょうか？ 考えた方法としては、 DATE関数でシステム日付を取得し、 その値がFormat（Date, "YYYYMMDD"）と一致するかどうかで 西暦かどうかを判断する処理を考えましたが、 果たしてこれが正しいといえるのか不安です・・・。
View Article