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

関連カテゴリ

次へ  ]
22014件中 101~120件目
  • セルを飛び飛びに選択した時の要素の指定方法

    たとえばA2とC2の2つのセルを選択した時、1つ目のセルは Selection(1)で指定できますが、2つ目のセルは Selection(2)で選択できません。Selection(2).Addressの結果は、$A$3になります。 選択したセルをUnionでまとめても結果は同じです。 飛び飛びのセルでは、こういう使い方はできないのでしょうか? Excel2010です。

    2018/11/22 12:08
  • VB2008で開発したアプリの不可解な現象

    2年前にVB6からの移行が終りアプリとして100ヶ所位に 配布していますが今回初めて解決できない現象が発生しました。 他の配布先では問題は無く稼動しています。 納入先は遠方なので電話とメールでの対応しかできなくて お客様のパソコン操作レベルは電話でCopy&Pasteができるレベルです。 functionキーは使えません。 ※開発環境 VB2008 .NET FrameWork 3.5.1  お客様のパソコンはWindows7でXP,Vistaからのアップグレードではない 下記の2点のアドバイスよろしくお願いいたします。 [No1] 塗り潰し印刷ができない。 エラーにはなりません。 [No2] NET FrameWorkのエラーとなります。 詳細なエラーメッセージは不明です。 Text書き出しはやめて他の方法で対処しましたが なぜエラーになるのか経験のある方宜しくお願いします。 [No1]-------------------------------------------------------------------------- Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim drawbrushWhiteSmoke As New SolidBrush(Color.WhiteSmoke) With e.Graphics .FillRectangle(drawbrushWhiteSmoke, 15 , 80, 180, 6) '塗り潰し End With [No2]-------------------------------------------------------------------------- Private Sub XXXXX() Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("Shift_JIS") Dim File_Name As String = フォルダー名 & "Data\Prev.txt" System.IO.File.WriteAllText(File_Name, Out_MitumoriNo, enc)

    2018/11/17 02:15
  • vbs ファイル開かずに拡張子変更

    xls→csvに拡張子を変更する サーバー側で実行したいのですが、Officeが入っていないためか、activeX コンポーネントはオブジェクトを作成できません。と出てきます。 エクセルファイルを編集するには、excel.applicationが必要だと思いますが、 使用せずに拡張子を変更することは可能でしょうか。

    2018/11/14 15:19
  • vbcript csvファイルの内容変更

    下記の変更できるコードのご教示頂けますでしょうか。 <実行前> A列 B列  C列 田中 更新  北海道 佐藤    沖縄 <実行後> A列 B列  C列 田中 更新  北海道 佐藤 新規  沖縄 <編集内容> B列に空白があった場合、「新規」と出力する できれば、下記URLのベストアンサーの方のように Buf(i)を利用するようなコードでご教示頂けると嬉しいです。(不可能ならばほかの方法でお願いします) https://okwave.jp/qa/q9552634.html

    2018/11/08 22:48
  • ExcelマクロでPDFを選んで開く

    ネット上で色々検索しましたがこれという例題が見つかりませんでしたので教えて頂きたいです。 サーバー上の共有フォルダー例えば \\AA01\BB02\cc01\PDFFILES にPDFファイルが数種類保存されているとします。フォルダーの中からABCの文字が含まれるファイルをファイル選択ダイアログなどで表示し、その中から選んでPDFファイルを開きたいのですが。 よろしくお願いします。

    2018/11/07 12:00
  • [VBscript] csvファイルを編集

    D&DでcsvファイルをD&Dした後、 下記のような内容に変更し、保存する コードをご教示頂けないでしょうか。 <変更前> 名前 処理 担当    田中 更新 製品 佐藤 更新 サービス 伊藤 更新 製品 桜井 削除 サービス <実行後> 名前 処理 担当   処理内容 田中 更新 製品   更新処理 佐藤 更新 サービス 更新処理 伊藤 更新 製品   更新処理 桜井 削除 サービス 削除処理 <csv変更内容> ・[処理]列に「更新」という値がある場合、[処理内容]列に「更新処理」という値を入れる ・[処理]列に「削除」という値がある場合、[処理内容]列に「削除処理」という値を入れる 宜しくお願いします。

    2018/11/06 23:09
  • ExcelのVBAに関して教えてください。

    下記のようにCSVファイル名を複数入力してマクロ実行したら転記するようにしたいです。 やり方がわかる人いたら、教えてください。 (1)C10にa、C11にb、C12にc、C13にdを入力 (2)マクロ実行ボタンを押す (3)aのcsvファイルのG12~G36をD10~D34に転記。 ※aのパスは¥¥mm¥nn¥cc¥a.csv  bのcsvファイルのG12~G36をD35~D59に転記。 ※bのパスは¥¥mm¥nn¥yy¥b.csv  cのcsvファイルのG12~G36をD60~D84に転記。 ※cのパスは¥¥mm¥nn¥kk¥c.csv  dのcsvファイルのG12~G36D85~D109にを転記。※dのパスは¥¥mm¥nn¥bb¥d.csv  難しい点は最下層のフォルダが異なっている点です。。  最下層のフォルダ違うが、csvファイルを転記する方法はありませんか?

    2018/11/05 22:55
  • Google検索の結果を、Excelにまとめる

    とあるキーワードでGoogle検索をして、 その検索結果をExcelにまとめたいです。 まとめたい情報は、検索結果のサイトタイトルとURLです。 検索結果の全てをExcelにまとめたいです。 おそらく100件くらい?だと思います。 これを、マクロを組んで自動でできたりするでしょうか? どのような記述でできるでしょうか? Excel2016です。 よろしくお願いいたします。

    2018/11/04 02:12
  • VBSでファイル名にシート内のセルの値を付け足す

    現在下記のコードが書いてあるvbsにエクセルファイルをドラック&ドロップをしてパスを外したり、つけたりしています。 その際に、投げ込んだエクセルファイルのファイル名の頭に 投げ込んだエクセルファイルのシート1のセルA1の値を付けたいと考えています。 例 パスのかかっている 間隔.xls というファイルをVBSに投げ込むと パスが外れ ファイル名が あいう間隔.xls という名前に代わって保存される。コピーではなく投げ込んだシートの名前が変わって問題ありません。 あいう はシートのA1セルに入っていた文字です。 ブック内にシートは必ず1つしかありません。 Option Explicit 'Excel 2013 Later Japenese Version Available 'REF: 'REF: '''///---定数の設定Set Enumuragion---///''' Const PWD="paspas" Const msoLanguageIDInstall = 1 '''///---変数の宣言---///''' Dim objArgs, I , strFile Dim objFile, objFolder,objPath,strScr Dim xlApp,Wb Dim objWShell : Set objWShell = Createobject("WScript.Shell") Dim FSO : Set FSO = Createobject("Scripting.FileSystemObject") '''///---ファイル処理開始 Start Document File Conversion---///''' Set objArgs = Wscript.Arguments For I = 0 to objArgs.Count-1 set objFile = FSO.GetFile(cstr(objArgs(I))) If Lcase(Left(FSO.GetExtensionName(objFile.Path) ,3) )="xls" Then Set xlApp =CreateObject("Excel.Application") If xlApp.Version < 14 Then xlApp.Quit: Set xlApp = Nothing:wscript.Quit xlApp.DisplayAlerts=False xlApp.Visible = False set wb=xlapp.WorkBooks.Open(objFile.Path,0,false,,PWd,,True,,false,false,,true,true) if wb.HasPassword=true then wb.Saveas objFile.Path,,"","",False else wb.Saveas objFile.Path,,Pwd,"",False End if wb.close set wb=nothing End If Next xlApp.DisplayAlerts=True xlApp.Quit set xlApp = Nothing このコードをどのように変更すればできますでしょうか?

    2018/11/02 21:31
  • エクセルVBAで、列の並び替えをしたいです。

    いつも大変お世話になっております。 初心者につき、ご教示いただけますと幸いです。 A列~BQ列までを使用したデータが 日々更新されるのですが、 デイリーでお客様へ提出する資料で必要な項目は限られており また、配列も異なる(前後している)仕様となっているため、 日々、手作業で必要な配列の抜き出しと列の配置替えをしています。 これをVBA(マクロ)で設定しておけば、 日々の作業が軽減できるかと考えておりますが、 記憶マクロで作ってはみたものの 知識不足のため、 日々更新され、範囲(行)が異なってしまうデータに対し そこにどう対応して良いかが分かりません。 お教えいただけますと幸いです。 ※A列は項番・BQは必須項目のため、Nullはありませんが、 他の項目にはNullもあります。 よろしくお願い致します。

    2018/11/01 09:59
  • batでファイルをコピーして名前を変更

    Aフォルダに 修正指示26-23.xls というファイルがあります。 このファイルをドラック&ドロップでbatファイルに投げ込み Aフォルダ内にコピーし、そのコピーした方のファイル名を abc〇〇〇.xlsというファイル名に変更したいです。 〇〇〇の部分はINPUTBOXのようなものが表示されて 自分で入力をできるようにしたいです。 INPUTBOXのようなものが表示されなくても、〇〇〇の部分だけ自分で入力すれば前部分のabcは固定でつけばokです。 batで無理であればVBSでもいいです。 なにかいい方法があれば教えてください。

    2018/10/31 18:52
  • Sendkeyが上手く動作しない。

    いつもお世話になっております。また助けて頂きたく質問しました。 数式を値で貼り付けし、再計算させるのに 起点のセルを選択し、F2キーで入力モードにしてからTab(またはEnter)で抜けて数式を計算させる。という方法を取っています。 これをマクロでやろうと以下のマクロを組みました。 Sub 更新() Dim i As Integer, j As Integer Sheets("データ").Select Range("C6").Activate   For i = 1 To 8      For j = 1 To 42        SendKeys "{F2}"        SendKeys "{TAB}"      Next j      SendKeys "{ENTER}" Next i ~~~ 中略 ~~~ End Sub データシートのセルC6を起点に 右に42回更新を掛けた後、エンターで次の行に行き、また42回を8回繰り返す。 というマクロのはずなんです...。 ですが実際に動かしてみると 「中略」のマクロが先に実行された後にForの中のマクロが実行されたり、 ステップインでもないのに、VBAのウィンドウがアクティブになってそこでTabとF2が繰り返されたりします。 データシートをアクティベートにしたり、セレクトにしたり、 セルをアクティベートしたり、指定しているはずなんですが、なんとも上手くいきません・・・。 どこが間違っているのでしょうか? また別に、値で貼り付けた数式の再計算にいい方法があれば教えてほしいです。 よろしくお願いします。

    2018/10/31 15:23
  • vbs xlsをcsvに変換

    vbsでxlsファイルをcsvファイルに変換することは可能でしょうか。 手動で拡張子をcsvにすると、カンマ区切りではないため 一列目にすべての値がスペース区切りで出力されてしまいます。 vbsで実行可能でしたらコードのご教示頂けますでしょうか。

    2018/10/30 21:52
  • vbs csv 編集

    vbsを実行し下記のようにcsvを編集することは可能でしょうか。 ドラッグアンドロップでvbsを実行することとします。 <実行前> A列 B列  C列 名前 性別 出身地 田中 男  北海道 佐藤 女  沖縄 伊藤 女  東京 桜井 男  東京 <実行後> A列 B列  C列  D列   E列 田中 男  北海道 000001 学生 佐藤 女  沖縄  000002 学生 伊藤 女  東京 100000 社会人 桜井 男  東京  100001 社会人 編集箇所としては、 ・一行目を削除し、二行目を先頭にする。 ・D列には000001~999999まで連番で値を追加 ・E列には、D列の値が「~99999」の場合は、学生。  それ以上は、社会人と記載するようにする。 宜しくお願いします。

    2018/10/29 22:08
  • vbs csvファイル内の行を変更

    vbsにて、csvファイルを読み込み、 以下のように行の値を変更することは可能でしょうか。 変更箇所は1行目です。 <元csvファイル> 氏名 性別 年齢  <変更後csvファイル> フルネーム 男女 年 住所 電話番号 コードのご教示お願いいたします。

    2018/10/26 23:37
  • 職場のPCでVBA参照設定時に注意すべき点

     営業事務の派遣で働いています。  職場のローカルPCでExcelVBAの参照設定を設定した際、他ユーザーへの影響が知りたいです。Outlookのメールを読込む為の設定「Microsoft Outlook 15 Object Library」等(ネットで見つけたコード)を検討中です。  設定したいPCの使用者は基本的に自分1人で、コードを使うファイルの利用者も殆ど自分1人です。VBAの利用者は同じ部署内(少なくとも自分のPC)では皆無ですが、当然システムで部署内外のPCと繋がっています。  使用するPCのWindows2007、OutlookとExcelはそれぞれ2010Profesionalです。  上司の許可を得てからにしますし、どのような設定かは勿論、コードのコメントに残し、将来そのPCを自分以外の人がメインで使う場合は、設定は外すつもりです。  ネットで調べると、VBAのコーディングや実行時に不具合が出る場合はあるようですが、それ以外の通常の事務作業等で(Excelのみに限らず)どのような影響があるかが知りたいです。  宜しくお願い致します。

    2018/10/20 11:17
  • 複数ブックの最後のブックだけ処理できない

    開いている複数ブックに対して「簡単な処理を行い、保存して閉じる」 というマクロを走らせたいのですが、 最後のブックのみ処理できずにマクロが終了してしまいます。 例えば、3ブック開いていたら3ブック目が、 4ブック開いていたら4ブックめが、処理できずに開いたままの状態です。 Dim Wb As Workbook For Each Wb In Workbooks 簡単な処理内容 ActiveWorkbook.Close SaveChanges:=True Next どのように改善すれば良いのでしょうか?

    2018/10/18 22:55
  • コマンドプロンプトを使用して時間の変更

    REM 日付の分解 set TODAY=%date% set y=%TODAY:~0,4% set m1=%TODAY:~5,1% set m2=%TODAY:~6,1% set d1=%TODAY:~8,1% set d2=%TODAY:~9,1% REM 入力要求 set /P chg_y="西暦を入力してください: " REM 西暦変更 date %chg_y%/%m1%%m2%/%d1%%d2% 現在ネットで拾った上記コマンドを使用してPCの日付の変更をしております。 これと同じように時間の部分を変更した場合どのようなコードを書けばいいでしょうか? 例 現在時刻 15:09 bat実行 変更した時間を2桁で入力してください。 16と入力してエンター押すと16:09になるようにしたい。

    2018/10/17 15:11
  • マクロ作動中にポップが出て、作業が止まる

    エクセルで下記のようなマクロを組んで、 URLからサイトタイトルを取得しています。 Sub sample() Dim Carea As Range Set Carea = Selection If Carea(1).Value = "" Then Exit Sub Dim Tcel As Range Dim ObjIE As Object Set ObjIE = CreateObject("InternetExplorer.Application") For Each Tcel In Carea ObjIE.Navigate Tcel.Value Do While ObjIE.Busy = True Or ObjIE.readyState <> 4 DoEvents Loop Tcel.Offset(, 1) = ObjIE.document.Title Next ObjIE.Quit Set ObjIE = Nothing End Sub 途中で、添付画像1のようなポップが出て、マクロが止まります。 自動でサイトタイトルを取得したいのですが、 このポップが出ることで、作業が中断してしまいます。 このポップが出たら、自動で「キャンセル」にする方法はあるでしょうか? マクロ自体に記述を足して、対策できるでしょうか? Excel2016です。 よろしくお願いいたします。

    2018/10/16 19:20
  • シート状で同一の値のあるセルを一括変更するには

    シート名「マスタ」には会社コード、会社名、住所、電話番号が入っています。このマスターの情報をもとにシート名「請求書入力フォーム」で情報を入れ、その内容がすべて「請求書データベース」に転記されます。 「請求書データベース」のA列は会社コード、B列は注文日付、C列は得意先名、D列以降は注文内容です。 会社名の変更があったとき、「マスタ」のユーザーフォーム上で変更させ、その変更前の値を「請求書データベース」のAT1に変更後の値をAU1に、該当会社コードをAV1に転記するようマクロを作りました。 ここまではうまく動作しているのですが、「請求書データベース」の変更前のセルAT1を使って、該当する得意先名の入ったセルをすべて選択して、その後AU1の変更後の得意先名に書き換えたいのですが、どうすればよいでしょうか。 一応、変更前のAT1の値から、「請求書データベース」のC列の該当する会社名をすべて選択するマクロまでは作りました。下記マクロ文で該当するセルをすべてうまく選択するところまではできています。 よろしくお願いします。 Sub お得意先検索() Dim fnd As Range Dim fnd_all As Range ' 見つかったすべてのセル Dim adr As String ' 最初に見つかったセルのAddress Dim keyWord As String '検索値をkeyWordに格納 keyWord = Range("AT1").Value Set fnd = Cells.Find(keyWord) If fnd Is Nothing Then MsgBox "見つかりませんでした。" Exit Sub Else Set fnd_all = fnd adr = fnd.Address End If Do Set fnd = Cells.FindNext(After:=fnd) If fnd.Address = adr Then Exit Do Else Set fnd_all = Union(fnd_all, fnd) End If Loop fnd_all.Select End Sub

    2018/10/12 15:40

ピックアップ