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

関連カテゴリ

次へ  ]
22014件中 161~180件目
  • office2013とoffice2016で確認し

    office2013とoffice2016で確認したのですが、excelのvbaでフォルダ内のファイルを取得する「dir」を使って処理を行うと異なる動作をしたので教えていただきたいです。 下記はプログラムの一部抜粋です。 dim buf as string dim filepath as string buf = dir(filepath & "¥*.xls") do whike bud <> "" (実処理) buf = dir() loop このとき読み込むフォルダには拡張子xlsとxlsxを1つずつ格納してあります。 これをいざ実行してみると次のパターンで動作します。 ・デスクトップにある場合 : どちらも認識 ・Dドライブにある場合 : xlsのみ認識 ・ネットワークドライブにある場合 : xlsのみ認識 個人的にはプログラム的にもxlsxは認識しないのが正しいような気がしていますが、作成者はどちらも認識するのを想定しているようです。 であればどのパターンでも認識しないのはおかしいですし、デスクトップとDドライブではローカル環境であることに変わりないのになぜ?という感じです。 プログラム的に直した方がいいのか仕様なのかバグなのか知りたいところです。 よろしくお願いします。

    2018/06/19 15:54
  • Excel VBAについてお願いします 

    Excelにて複数のCSVファイルを読み込んでいます。 現在使用している物は、同フォルダ内にあるcsvファイルをすべて選択しています。 そこで、毎回同じフォルダ内のcsvファイルを選択を自動化にしたいと思っています。 Const MyFol As String = "C:\AAA\AAAA\"などフォルダを固定したいです。 現在使用している物にどのように追加、変更すれば良いでしょうか?ご伝授願います Sub CSV取り込み() Dim csvFile As Variant Dim fIdx As Long Dim lngTmp As Long Dim dCell As Range csvFile = Application.GetOpenFilename(FileFilter:="CSVファイル,*.csv", MultiSelect:=True) Select Case TypeName(csvFile) Case "Variant()" If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then lngTmp = 0 Else lngTmp = 1 End If For fIdx = 1 To UBound(csvFile) Set dCell = Cells(Rows.Count, 1).End(xlUp).Offset(lngTmp, 0) With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & csvFile(fIdx), Destination:=dCell) .TextFileCommaDelimiter = True .Refresh BackgroundQuery:=False End With If lngTmp = 1 Then dCell.EntireRow.Delete lngTmp = 1 Next Range("A1").AutoFilter field:=Range("O:O").Column, Criteria1:="=9" Range("2:" & Rows.Count).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp Range("A1").AutoFilter Set dCell = Nothing Case Else MsgBox "キャンセル、または不正な操作が行われました" End Select End Sub どうか自動読み込みできるようお願いします。 追加で、処理終了ご『処理完了』などのメッセージがあれば、最高です よろしくお願いします

    2018/06/17 20:09
  • Access2016 構文エラー

    お世話になります。 Access2003から2016へDB変更(MDB→ACCDB)をしたのですが、構文エラーになります。 2003の時には、エラーなど出ませんでしたが、エラー修正箇所を見ても、エラー該当が無いかと考えております。 どなたか、情報下さると有難く思います。 Private Sub ページヘッダー_Print(Cancel As Integer, PrintCount As Integer) Me.Section(acPageHeader).Visible = (Me!txtCnt <> 1) On Error GoTo err_shori '頁のカウント If preNo <> 得意先CD Or intP = Pkei Then intP = 0 intP = intP + 1 txt頁 = "P. " & intP '明細30行で1頁 Dim rst As Recordset, strSQL As String If intP < 2 Then txt前回請求額.Visible = True txt入金額.Visible = True txt繰越金額.Visible = True txt税抜.Visible = True txt消費税.Visible = True txt税込.Visible = True txt今回請求額.Visible = True '請求金額等の取得 Q請求金額一覧より Set rst = db.OpenRecordset("Q請求金額一覧") rst.FindFirst "得意先CD='" & 得意先CD & _ "' and 締切日 = #" & Format(締切日, "yyyy/mm/dd") & "#" If Cur_ing 得意先CD & _ rst("最大化表示",m)  どうも、「Private Sub ページヘッダー_Print(Cancel As Integer, PrintCount As Integer) 」と、最後の 「 If Cur_ing 得意先CD & _」 「 rst("最大化表示",m)」にて、構文エラーになるようです。

    2018/06/16 08:42
  • Int((100-1+1)*Rnd+1)

    Dim i As Integer, mS(9) As String For i = 0 To 9 mS(i) = Int((100-1+1)*Rnd+1) Next i 3行目では何が行われているのでしょうか。 易しく、教えて頂けると、助かります。 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答4
    2018/06/15 20:54
  • プロパティ設定値の型

    コード中でプロパティを設定する場合です。 数字を扱う型だとCaption等でエラーが出ますね。 Stringだと数値も文字列もOKの様ですが、この型を使う事で問題は有るでしょうか。 もっと適切な型等、有るでしょうか。 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答1
    2018/06/15 17:50
  • If文中のExit Sub

    Dim i As String i = TextBox1.Value If i ="" Then MsgBox "入力なし" Exit Sub End If Exit Subは何の意味が有るのでしょう? Exit Subを調べたり試したりしたのですが、良く、解りません。 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答1
    2018/06/15 17:03
  • 宣言文で変数横の()

    Dim i() As String 変数iはSplit関数で使う物です。 この()は何なのでしょう。 配列に関係すると、思われるのですが。 ページ紹介でも歓迎です。 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答2
    2018/06/14 18:08
  • FormatDateTime関数の第一引数の#

    使用例で第一引数が##で囲まれていた。 #1/01/2018 5:00:00 PM# この#はどの様な用途で使う 何と云う物なのでしょう。 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答1
    2018/06/14 18:05
  • VB.NETをWidowsスタートメニューから起動

    Windows7にVisualStudio2017をインストールしました。 が、Windowsスタートメニューにはコマンドライン(DOS画面)が起動するショートカットしかなく、VBもC#もありません。 VBやC#を起動するにはどうしたらいいのでしょうか?

    2018/06/10 19:33
  • アクセス フィールド値を分割したい

    いつも大変お世話になっております。 初心者につき、ご教示いただけますと幸いです。 アクセスのテーブル・フィールドに AAAA,BBBB,CCCC という値が入ってしまうため 「,」を区切りに分割したいです。 テーブル:T_商品 フィールド: 顧客ID|注文内容(連結で入ってしまうフィールド) 0001|AAAA 0002|AAAA,BBBB 0010|AAAA,BBBB,CCCC 0101|AAAA,BBBB,CCCC,DDDD,・・・ といったように、連結した値の数はまちまちで、 最大10個になります。 ちなみに、 これを ↓フィールド名 顧客ID|注文商品   に 0001|AAAA 0002|AAAA 0002|BBBB 0010|AAAA 0010|BBBB 0010|CCCC  ・  ・  ・ といったように、 最終的には 1つのフィールドにまとめたいです。 ご教示のほど、よろしくお願い致します。 尚、前半の「連結値を分割」だけでも テーブル更新(分割毎にフィールドに挿入)できれば、とても助かります! →この場合、予備フィールドなどを作成しておくか、  ワークテーブルなどで処理になりますでしょうか。 是非とも、よろしくお願い致します。

    2018/06/08 18:08
  • StrComp関数の1と-1

    戻り値ー1と1は 比較して未満や超えると有る。 色々と試してみたが、何を比較した結果なのか解らない。 かわ がわ -1  がわ かわ 1 となるのは何故ですか。 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答2
    2018/06/08 18:05
  • コードの添削お願いします(変数エラー)

    Option Explicit Private Sub CommandButton1_Click() Dim myStr As String If myStr <> "" Then myStr = TextBox.Value Label1.Caption = LTrim(myStr) Label2.Caption = RTrim(myStr) Label3.Caption = Trim(myStr) Else MsgBox "終了" End If End Sub 変数のエラーが出ますが、何処がおかしいですか? 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答2
    2018/06/08 17:18
  • Visioソフトでブロック図を作りたいのですが、コ

    Visioソフトでブロック図を作りたいのですが、コネクタが複雑になるので、Visio VBAでExcelの数字の情報を読み込んで、その数字に合わせて以下の数字が記述されてあるブロック図をコネクタで接続させるプログラムは可能でしょうか。 可能であれば、その具体的なプログラムをご教授くださいm(_ _)m

    2018/06/07 19:47
  • Dim Error GoTo ErrMsgの意味

    Dim Error GoTo ErrMsg 調べては見たもののどういう意味だか解らないのです。 パーツの意味を教えて頂けませんか。 宜しくお願い致します。

    • 締切
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答1
    2018/06/07 19:31
  • InStrRev関数の使い方について

    後方から検索にならず、簡易な物で試して居ります。 Dim myStr As String myStr = "54321" MsgBox InStrRev(myStr, "5") 5が出て欲しいが、1と出ます。 間違いは何処でしょうか。 InStrRevを間違って覚えているのか。。。 宜しくお願い致します。

    • 締切
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答3
    2018/06/07 17:35
  • StringのVariant型とは?

    Left関数等StringのVariant型で返すと有りました。 StringとVariantはデータ型として並列な物だと思っていましたが、違うのですか。 StringのVariant型とは何ですか。 宜しくお願い致します。

    • 締切
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答5
    2018/06/07 17:00
  • 業界でのコード記述時の常識?

    日常的にVBAを使っている方にお聞きしたい。 If...End Ifのように、最初と最後がセットの物。 よく、忘れますから、Ifと書いたら改行してEnd Ifと入れる。 その後に、中身を書きます。 しかし、最近、改行後に戻るのも手間かと感じる様になり。 中身書いた後に書く物ですか? 又、タブで下すのは、随時です。 しかし、上と同様に、手間かと感じる様になり。 最後に纏めてしますか? 宜しくお願い致します。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答1
    2018/06/06 18:42
  • テキストボックスを配置したいのですが

    以下のコードですと、失敗します。 Private Sub CommandButton3_Click() Dim nu7 As MSForms.TextBox Set nu7 = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox1", True) With nu7 .Left = 20 .Top = 50 End With End Sub 間違いをご指摘頂けると、助かります。 どうぞ、宜しくお願い致します。

    • 締切
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答1
    2018/06/06 17:39
  • FormとUserFormの違い

    違いが、わからないのです。 説明。。。若しくは参考になるページ等を教えて頂けないですか。 だがヘルプはいま閲覧出来ず、それ以外でお願い出来ますか。 宜しくお願いします。

    • ベストアンサー
    • 暇なときにでも
    • noname#233045
    • Visual Basic
    • 回答1
    2018/06/05 18:40
  • アクセス サブフォルダ内のエクセルをインポート

    お世話になっております。 是非ともご教示ください。 1.フォームのテキストボックス(Forms!F_管理!txt_Path)でトップパスを指定し、 トップパスの配下にyyyymmddhhmmssといったサブフォルダ(例:20180515010128)ができるので、 そのサブフォルダ内にあるファイルの一部を テーブル(tbl_MRG)へマージさせたい。 サブフォルダにあるファイル:エクセル以外も有り (1)AB-yymmdd~(省略).xlsx (2)AC-yymmdd~(省略).xlsx (3)DE-yymmdd~(省略).xlsx (4)その他 その(1)~(3)のファイルを一定のテーブル(tbl_MRG)へマージ ・サブフォルダのhhmmssは日によって異なります。 ・マージ対象のファイル名は固定(AB~ ・AC~ ・DE~)です。 ・(4)のファイルの拡張子はエクセル以外の場合もあります。 ・マージするエクセルファイルの中身(データ範囲)は固定ではありません。 2.「ファイル名」のフィールドにファイル名(拡張子を含む)を入れたい。 3.既に取り込んだファイルは、マージ処理しない。 このような条件の処理を実装させたいですが、 どのように組んだら可能でしょうか。 ご教示のほど、よろしくお願い致します。 ※初心者につき、説明に整理できていない点などありましたら  追記させていただきます。 よろしくお願い致します!

    2018/06/05 15:36

ピックアップ