エクセルVBAでピボットテーブルを新規ブックに
既存のエクセル（A2~F3600)データをピボットテーブルで新規ブックに張り付け？発生？させるVBA構文をご教示ください。初心者です宜しくお願いします。
View ArticleDataGridViewの値を別フォームに
こんにちは。 1つ教えて頂けないでしょうか。 Form1にDataGridViewがあり、どれか１行ダブルクリックすると Form2にForm1のDataGridViewの７列目の値の条件で抽出した結果を Form2のDataGridViewに表示したいのです。 Form1からの受け渡しデータはForm2のテキストボックス（条件)に表示させ...
View ArticleSQLServer Expressに別PCから
こんにちは。 一つ教えてください。 自分のパソコンにSQLServer2012 ExpressとVisual Studio2017 Community(VB)を インストールし、DataGridViewを使った簡単な照会のプログラムを作成しました。 SQLServer2012の認証はWindows認証になっています。 このVBのプログラムをもう１台別のパソコンからも動かしたいのですが...
View Articleフォルダの条件付き世代管理(ローテーション)
VBSの質問です。 ■やりたいこと 1)設定ファイルを読み込んで、バックアップするフォルダの世代数(2世代分)と、フォルダ名を取得する。 2)対象フォルダ内にある任意2文字のサブフォルダがあることを確認し、作成日付でソート(古い順)する。 3)直近の新しい任意2文字のサブフォルダを2世代分を残して、3世代以降は削除する。...
View ArticleExcel VBA ユーザフォームの検索について
添付の画像のようなユーザフォームを作っています。 TextBox1に検索ワードを入力して、CommandButton1をクリックすると、下のComboBox1に一覧が出るようにしたいと思い、ほかのサイトから下記のコードを見つけて、作ってみました。参照先のsheet2を表示しているときは大丈夫なのですが、別のシートを選んでいるとエラーになります。...
View ArticleエクセルVBA ピボット作成
SUB テスト１（）Sheet1（"A2~F3600")のデータを新規ブックのSheet1にピボットテーブル表示させるVBA構文をご教示ください。初心者です宜しくお願いします。
View Articleaccess イベント名取得方法
accessでフォーム、またはコントロールのイベント名の取得方法を教えてください。 フォーム、コントロール、レポートには、それぞれプロパティシートを持っていて、開くと、 「書式」「データ」「イベント」「その他」「すべて」の４つのタブに分かれています。 やりたいことは、この４つの中で「イベント」タブにある内容をイベント毎に取得したいのです。 ＜コーディング例＞ '全フォームループ For Each...
View ArticleVBS 任意の名前でzip内のファイルを解凍したい
VBSを使ってzipファイルの解凍を行う際に、解凍ファイルを任意の名前にしたいです。 現在以下の内容のvbsでzipファイルを解凍しています。 --------------------------------------------------------------- zippath = "C:\新しいフォルダー\test.zip" savepath = "C:\新しいフォルダー" Set...
View Articleスライサーの項目選択を別シートのセルを参照にしたい
スライサーについての質問です。 シートが２つあり Ａシートには営業担当名がプルダウンで選択できるようになっており、 Ｂシートのスライサーの項目選択はＡシートで選択した営業担当名を選びたいのですがこれをＶＢＡのコードで書くのは不可能なのでしょうか？ ｎｅｔで検索をしたのですがどうしても見つからず・・ 教えていただきたいです。
View ArticleVBS Dateadd関数の実行
VBSについて、おそらく初歩的な質問です。 以下のプログラムが実行できないのはなぜでしょうか。。 また、メッセージボックスにy(5)の値(2017/08/10 11:00:00 ) を表示するにはどのように訂正すればよいでしょうか。 よろしくお願いします。...
View Articlevisualbasic2013 Excel出力
以下の開発環境でOleDbを利用してExcelファイルの出力を 行いたいと考えております。 ・visualbasic2013(Pro) ・クライアントにはExcelインストール済 以下のコードを実装しています。 Dim cn As System.Data.OleDb.OleDbConnection '/ ADO.NET接続用 cn = New...
View Article書式の条件に合致したら〇を付ける
以前質問して、A~C列、D~F列、G~I列、それぞれの「3グループいずれにも」色塗りがあり、かつ太字フォントがあれば、その行のJ列に〇を付ける、というマクロを作っていただきましたが、「3グループいずれかに太字で色塗りがある」に変えるにはどうしたらいいですか？...
View Articleマクロ IF分岐 空白行は空白を返す
指定の2列に条件付き書式設定で太字が設定してあり、2行とも太字ならその行に〇を付けるというマクロを作ってみたのですが、空白行がある場合にうまくいきません。空白行だったら、空白を返す、というふうにしたいのですが、elseのところを Cells(nRow, 21) = ""にしてもCells(nRow, 21)...
View Articleマクロ IF分岐 結果がうまく表示されない
I列J列、M列N列、Q列R列の、それぞれ2列ともに水色と紫色のフォントが両方あったら、U、V、W列に、う、キ、ち、とそれぞれ入力する、というマクロを作ってみたのですが、入力結果が指定した列に表示されません。添付のように「キ」がU列にきたり、「ち」がU列にきたりしています。何をどうすればいいでしょうか？ Sub test() ' For nRow = 7 To 233 If Cells(nRow,...
View ArticleVisual Studio Express
Visual Studio Express 2013(for Windows Desktop) 試用版のダウンロードインストールの仕方を教えていただけますでしょうか。初心者なので、出来るだけ簡単にご教授いただければ幸いです。
View ArticleVisual Studio2015を
こんにちは。 使い慣れたVisual Studio2015Commnutiyをインストールしたいのですが ダウンロードサイトは2017になっています。 2015はインストールできないのでしょうか？ よろしくお願いします。
View Articleマクロ IF条件分岐 疑問
マクロ初心者です。いろいろ参考に以下のマクロを作ってみたのですが、最初、私はnBold >0になると思いましたが、nBold < 0が正解のようですね。どうして0以下というふうにするのですか？ Sub AからF列に太字あればJ列に◎() For nRow = 1 To 7 nBold = 0 For nCol = 1 To 6 nBold = nBold + Cells(nRow,...
View ArticleVBでパスワードがかかったエクセルを開くには？
VisualStudio2015で見よう見まねでVBのプログラムを作成している初心者です。 パスワードのかかったエクセルファイルを開きたく、以下を作成しました。 Dim Application01 As New Excel.Application() Dim Book01 As Excel.Workbooks Book01 = Application01.Workbooks...
View Article別ブックシートセル値変換で当シートのセル値クリア
Excel2013ですがA bookのsheet1のセルC3の日付を変更したらB bookのsheet1のセルB2:B5とB8:B15の元の値をクリアしたいのですがA bookのsheet1のセルC3の日付を変更して閉じた後、B bookを開いたらB2:B5とB8:B15の元の値がクリア状態にしたいのですがどなたかVBAコードが解る方お願いします。
View ArticleＶＢＡの記述方法について
初めまして、ＶＢＡについて質問をさせてください。 「テスト資料」と「Sheet1」がそれぞれ別ブックで氏名と施設名の情報をもっています。 「テスト資料」では、氏名及び施設名が行ごとに並んでおり、氏名はＣ列、施設名はＬ列から最終列（そのときによって変動）にあります。「Sheet1」では、氏名はＧ列、施設名はＥ列にあります。 「テスト資料」の氏名及び施設名がSheet1の氏名及び施設名に一致する行を...
View Article