『Visual Basic』に関する質問・疑問一覧

関連カテゴリ

次へ  ]
22014件中 81~100件目
  • Visualbasic解像度が異なる端末で実行

    Visualbasic 2013でWindows Form アプリケーションを開発しております。 開発自体は問題なく行えているのですが、以下の点が解決できず悩んでおります。 事象 ・開発環境と実行環境で実行時のフォームのサイズ、フォントなどが  異なってしまう場合がある。  ※問題なく起動できるアプリケーションもある。 各情報は以下の通りです。 ・FormのAutoScaleModeは全て[Font]に統一 ・開発環境 HP ProBook   OS Windows8.1 Pro 64bit   解像度 1366*768    ・実行環境 Surface pro6   OS Windows10 Pro 64bit   解像度 2736*1824 何か分る方がいらっしゃいましたらご教授頂けますと幸いです。 以上です。

    2018/12/27 13:45
  • 倍数を探すプログラムを教えて下さい。

    指定した範囲の整数の中から(2つのテキストボックス)、テキストボックス(元の数値)で検索実行(検索実行ボタンもあり)した際に、その個数(倍数の数)と倍数全てを表示するプログラムを教えて下さい。 検索実行した際に、倍数の数のテキストボックスと倍数の表示のテキストボックスに数を表示させる必要があります。また、倍数の表示は、/で区切らないといけません。お願いします。

    2018/12/24 00:51
  • VBAのプログラムについて

    以前、どこかのHPで以下のようなVBAのユーザー関数を見つけました。 最近になって、そのプログラムを見返したのですが、何をしているのかさっぱり覚えていません。 どなたか、教えてください。 そもそも、FEIが何の略なのかまたは何なのかわかりません。 ////////////////////////▼プログラム/////////////////////////////////////////// Function FEI(k As Double, Order As Integer) As Double Dim s As Double Select Case Order Case 1 s = (3969 * k ^ 10) / 65536 + (1225 * k ^ 8) / 16384 + (25 * k ^ 6) / 256 + (9 * k ^ 4) / 64 + k ^ 2 / 4 + 1 Case 2 s = -(441 * k ^ 10) / 65536 - (175 * k ^ 8) / 16384 - (5 * k ^ 6) / 256 - (3 * k ^ 4) / 64 - k ^ 2 / 4 + 1 Case Else End Select FEI = Application.WorksheetFunction.pi * s / 2 End Function /////////////////////////////▲ココまで///////////////////////////////////////////////////////

    2018/12/23 12:22
  • VBA(Excel)でOutlookの連絡先を。

    みなさま、初めまして。 ExcelのVBAで、Outlookの「個人用の連絡先」に「テスト」というフォルダが あり、そこに登録されているデータを取得したいのですが、どのようなロジックに すればいいのでしょうか?。 環境 Windows10 Excel2016 Outlook2016 よろしくお願いいたします。

    2018/12/20 11:35
  • エクセルvbaに関する質問です

    ExecuteExcel4Macroを使った際について質問があります。 別ブックのセルを参照したいために、ExecuteExcel4Macroを使いました。 1つ目のmsgboxではパスを変数で、二つ目のmsgboxではパスを直書きしています。 下記のサンプルプログラムで2つとも同じものを表示させたいのですが、別の結果が表示されます。 =====サンプルプログラム===== Sub Sample1() Dim name As String Dim path As String Dim sheet As String path = "C:\Users\USER\Desktop\シフト表\新しいフォルダ\" name = "book1.xls" sheet = "Sheet1" Application.DisplayAlerts = False MsgBox ExecuteExcel4Macro("'" & path & "[" & name & "]" & sheet & "'!R1C1") MsgBox ExecuteExcel4Macro("'C:\Users\USER\Desktop\シフト表\新しいフォルダー\[book1.xls]Sheet1'!R1C1") Application.DisplayAlerts = True End Sub ===ここまで===== 実際のbook1.xlsのA1セルには「1」が入っているのですが、変数で書いた場合のみ「aaaaaa」が表示されます。 どうかご教授いただけたら幸いです。

    2018/12/20 10:51
  • ExcelVBAマクロについて確認させてください。

    ExcelVBAマクロについて確認させてください。 1)Wordファイルを開く 2)ファイルであるキーワードを検索して、そのキーワードを赤色に塗りつぶす 3)そのWordファイルを別名で保存 3)そのキーワードが存在するページを表示する プログラムを作成したいですが、いい案があればご教授いただきたく思います。

    2018/12/19 18:33
  • ExcelVBAマクロについて確認させてください。

    ExcelVBAマクロについて確認させてください。 Wordファイルを開いて変数に保存するプログラムを作成したいのですが、下記の「With .Documents.Open(sFullPath)」のところで”型が一致しません。”と表示され、うまくいきません。 この原因は何か考えられるのでしょうか。 回避策をお教えいただければと思います。 Dim sFullPath As Variant Dim moji As String sFullPath = "C:\ドキュメント\test\AAAAA.docx" With CreateObject("Word.Application") With .Documents.Open(sFullPath) moji = .Content.Text .Close End With .Quit End With

    2018/12/13 12:42
  • vbs Runメソッド 変数を入れられる?

    objshell.Run "cmd / c コマンド ~~~~ > ~~~~" ~~~~の中にvbsで宣言した変数を入れることはできますか? ちなみにその変数の中身はファイルのフルパスです。

    2018/12/13 10:31
  • Access VBA 困惑

    2つのテキストボックスに数を入力して、3つ目のテキストボックスに総和を表示するプログラムを作りたいです。(X~Y)逆にXが大きい数でYが小さい数の場合のプログラムも作りたいです。Exit Subは使えません。Forも2回は使えません。プログラムを教えて下さい。

    2018/12/12 20:12
  • VBの将来性について

    エクセルスキルを向上させようと思い立っています。 そこで白羽の矢を立てるのがVBEです。 しかし、ネット情報をあさると、新しい言語(例えばpythonなど)が広まる中、VBAの存在感は薄れているようです。 エクセルでpythonが使えるようになるという記事も有りました。 このような状況下の中、今、VBを学ぶことは将来的に(飯の種になるかどうかという視点で)有用でしょうか? ご意見お待ちしております。

    2018/12/06 01:15
  • vbs データ登録用にcsvを編集

    vbsで以下のように編集したいです。 よろしければコードのご教示宜しくお願い致します。 <編集前>    A     B      C     D 1 #氏名   メアド1   メアド2  メアド3...........メアド10 2 田中太郎 aaa@aaa.jp  3 田中太郎 bbb@bbb.jp ccc@ccc.jp 4 田中太郎 aaa@aaa.jp       ddd@ddd.jp <編集後>    A     B      C     D     E 1 #氏名   メアド1   メアド2   メアド3  メアド4........メアド10 2 田中太郎 aaa@aaa.jp bbb@bbb.jp ccc@ccc.jp ddd@ddd.jp <編集内容> ・氏名をキーに同一の氏名があった場合に、一行にメアドをまとめる。 ・一行に表示するメアド数の上限は、10個(メアド10)として、それ以上は削除 ・メアドが被った場合は、置換する。(B列のaaa@aaa.jpを指す) ・メアド10まで埋まらなかった場合は、メアド10(K列)まで","(カンマ)を一つのセルごとに出力する。 説明が下手ですみません。 条件不足等ございましたらお知らせください。

    2018/12/04 22:53
  • vbs csv編集 プログラム

    vbsで以下のように編集したいです。 <編集前>    A     B      C 1 aaa@aaa.jp bbb@bbb.jp ccc@ccc.jp 2       bbb@bbb.jp ccc@ccc.jp 3             ccc@ccc.jp <編集後>    A     B      C      D 1 aaa@aaa.jp aaa@aaa.jp bbb@bbb.jp ccc@ccc.jp 2 bbb@bbb.jp       bbb@bbb.jp ccc@ccc.jp 3 ccc@ccc.jp             ccc@ccc.jp <編集後> (1)A列に値がある場合は、その値をA列にコピーする。 (2)A列に値がなく、B列に値がある場合は、その値をA列にコピーする。 (3)B列に値がなく、C列に値がある場合は、その値をA列のコピーする ※A、B、C列すべてに値がある場合は、A列の値をA列(編集後)にコピーする。 上記可能でしたら、コードのご教示お願いいたします。

    2018/12/03 22:45
  • vbs csv内の一部の値を連結

    vbsで以下のように編集したいです。 <編集前>    A     B  C   D   E 1 aaa@aaa.jp 田中 男性 test001 数学 2 bbb@bbb.jp 石田 男性 test002 英語 3 ccc@ccc.jp 佐藤 女性 test003 科学 4 ddd@ddd.jp 伊藤 男性 test004 社会 <編集後>    A     B      C  D   E   F 1 test001_aaa aaa@aaa.jp 田中 男性 test001 数学 2 test002_bbb bbb@bbb.jp 石田 男性 test002 英語 3 test003_ccc ccc@ccc.jp 佐藤 女性 test003 科学 4 test004_ddd ddd@ddd.jp 伊藤 男性 test004 社会 <編集内容> D列の値とA列のメールアドレスの「@」の前をアンダースコアを挟み、連結させる。 可能であればコードのご教示宜しくお願い致します。 説明に不備等あればお知らせください。 コードの説明もあれば嬉しいです。

    2018/12/03 21:58
  • ExcelVBA 外部データのピボットを更新したい

    VBA初心者です。 アクティブなワークブックの非アクティブなシート3つにそれぞれひとつずつ計3つのピボットテーブルを作成しております。 ピボットテーブルはいずれも同じデータソースを利用しており、データソースは別のワークブックにあるテーブルです。 データソースが頻繁にデータが追加されるため、アクティブシートに設置したコマンドボタンからピボットテーブルのソースをまとめて更新したいと思うのですが、ワークブックとデータソースを収納するフォルダごと他者(Excelど素人)に渡すことがあるため、絶対パスを用いず、かつ「データソースに接続できません」というエラーを出さずにピボットテーブルを更新したいのですが… ActiveWorkbook.RefreshAll では、フォルダごとコピーしてコピー先のデータソースを更新しても別フォルダのはずのコピー元をいつまでも参照しており失敗 Sub Commandbutton1_Click()   Dim DATA_SOURCE As Worksheet Dim DATA As String Dim wb As Workbook Dim PvtCache As PivotCache DATA = ThisWorkbook.Path & “¥データ.xlsx” wb = Workbooks(DATA) Set DATA_SOURCE = wb.Worksheets(“データ”) Set PvtCache = ActiveWorkbook.PivotCaches.Create( _ SourceType:=xlDatabase, _ SourceData:=DATA_SOURCE)   End Sub これでどうだと自分なりに記述したものの全く作動せず。 頻繁にブックがフォルダごとコピーや移動されるので都度同フォルダ内のソースを取得して更新したいのですが、可能でしょうか? 教えていただければ幸いです。

    2018/12/03 00:40
  • Access VBA 工夫

    Access VBA 2つのテキストボックスに数字を入力して、3つ目のテキストボックスに総和を求めるプログラムを作りたいです。(X~Yまでの総和。 ) Private Sub btnWa_Click() Dim lX As Long Dim lY As Long Dim i As Long Dim lSouwa As Long lX = txtX.Value lY = txtY.Value lSouwa = 0 For i = lX to lY lSouwa = lSouwa + i Next i txtSouwa.value = lSouwa End Sub これに加えて逆にY~X(例えば30~10)の総和を求める。もしくは、警告を出す。そして、テキストボックスに何も入力されていない場合と文字が入力されている場合、エラーメッセージを出すプログラムを教えて下さい。

    2018/12/02 19:36
  • モジュール名を変更すると正常に動作しない

    標準モジュール「Module1」を作成し、 関数を書き込み正常に動作していましたが、 モジュール名を分かりやすくしようと変更したところ、 正常に動作しなくなってしまい、 名前を元に戻すと、また正常に動作します。 どうしても名前を変更したかったので、 「Module1」を一度解放して削除した後、 新たな「Module1」を作成し、 モジュール名を変更してから関数を書き込んでみたり、 「Module2」を作成し、 モジュール名を変更してから関数を書き込み、 「Module1」の関数を消してみたりしましたが、 最終的には、何をどうしても動かなくなってしまいました。 原因や対策、解決策をご存知でしたら、 教えてください。

    2018/12/01 01:28
  • 再度 マクロの「繰り返しコード」の質問です。

    宜しくお願いします。まったくの初心者です。 今、A1~A5には数値。 隣のB1~B5には=RUND()の関数。 ("A1:B5")をセレクトして並び替え、 (ソート最優先キーはB列、降順) この乱数を並び替えして、E1にコピー、そしてG列に1列挿入する。 これを10回繰り返したい。 というコードが、なかなか作れません。 何方か教えてください。

    2018/11/29 18:54
  • エクセルのマクロの繰り返し

    よろしくお願いします。 「A1からA5までの数値を数字の大きい順に並び替えして、 そのA1からA5のデーターをC1からC5にコピーする。 次にB列に1列挿入する。」 ここまではエクセルのマクロ機能で出来ましたが それを100回くり返すコードというか、 コードの書き方、仕方がわかりません。 このばあいどのようなコードでしょうか

    2018/11/28 13:27
  • 空白セルに●を入れたい

    Excelのセル範囲(例:としてA1からC10)のセルを調べて、 空白のセルになにかの文字(例:●)を打ち込みたい場合のVBAの書き方を教えてください。 Sub セル埋め() Dim r As Range, i As Range Set r = Range("A1:C10") '範囲指定 If Intersect(r, Target) Is Nothing Then For Each i In r If i.Value = "" Then i.Value = "●" Next i End Sub この書き方にこだわっているわけではないので、もっと簡単なやり方でもけっこうです。

    2018/11/26 20:05
  • AccessVBAについて教えて下さい。

    数字の1~50までの積を求めるプログラムを作りたいのですが、上手くいきません。フォームでボタンをクリックし、テキストボックスに表示させたいです。 Dim j As Long Dim lSeki As Long lSeki = 0 For j = 1 To 50 lSeki = lSeki * j Next txtSeki.Value = lSeki 何が間違っているのでしょうか?

    2018/11/23 04:19

ピックアップ