回答数
気になる
-
特定文字を入ってるCSVの特定の列を特定のexcelシートに取り込みたいです
特定のファイル名が "normal-item-stock" を含むCSVのセル内に改行があるため、一気にexcelに取り込みすると、データがぐちゃぐちゃになります。 特定のファイル名が "normal-item-stock" を含むCSVファイルから1列目のデータをExcelのshoplistというシートのA列に取り込み、75列目をB列、82列目をC列に取り込みたいです。 Dim ws As Worksheet Dim SelFile As Variant SelFile = Dir(ThisWorkbook.Path & "\" & "normal-item-stock*.csv") Set ws = Worksheets("shoplist") ' CSV のデータを取り込むシート
質問日時: 2023/11/25 11:24 質問者: ケンケン123
解決済
3
0
-
Excel VBAでの数値の計算についておしえてください
VBAを学び始めたのですが、疑問点があります。 添付画像のように、イミディエイトウインドウに、 > ? 0.3 = 0.1 + 0.2 とすると > False > ? 0.4 = 0.2 + 0.2 とすると > True と出力されます。 なぜこのような違いが出るのでしょうか? よろしくお願いいたします。
質問日時: 2023/11/15 19:29 質問者: sho11198
解決済
2
0
-
VBA 二つのブックをうまく扱えないでいます
次のプログラムですが、ブックが勝手に切り替わってしまいます。 Main, Sub 二つのブックを同時に開き、Mainのアクティブセルをコマンドボタンを押して動かすだけでSubのブックがアクティブになってしまいます。 Rem 標準モジュール Public SubBook As Workbook Public MainBook As Workbook Private Sub Workbook_Open() Set MainBook = ThisWorkbook Dim wsh As Object Set wsh = CreateObject("WScript.Shell") Workbooks.Open wsh.SpecialFolders("Desktop") + "\Sub.xlsm" Set SubBook = ActiveWorkbook UserForm1.Show vbModeless End Sub Private Sub CmdA1_Click() ActiveSheet.Range("A1").Activate End Sub Private Sub CmdG4_Click() ActiveSheet.Range("G4").Activate End Sub Private Sub CmdMain_Click() MainBook.Activate End Sub Private Sub CmdSubActivate_Click() SubBook.Activate End Sub
質問日時: 2023/11/15 17:17 質問者: payphone
解決済
2
0
-
Excelに保存されているユーザー情報から別ブックの複数シートへ自動転記されるようにしたいです。 ユ
Excelに保存されているユーザー情報から別ブックの複数シートへ自動転記されるようにしたいです。 ユーザー情報があるマスターファイルの場所は不変にし、読み込む予定です。 ※画像の内容はイメージとして貼ったもので実際の転記したいフォーマットシートはしっかりしたものです。 ユーザー情報のNoを基に別ブックのシートに転記させたいです。 <確認したいこと> 転記させるにあたりどのような方法があるか(ヒューマンエラーなど起こりにくいなど)妙案がありましたらご教授いただけますと幸いです。 また、シートの有無に○をつけたり、チェックボックスを連動させるにはどうしたら良いでしょうか? 特にイメージだと1つのセルに中国、フランスと入力してますが、これは実現可能でしょうか? 不可であれば中国、フランスと1つのセルに入力する形を検討します。
質問日時: 2023/11/15 16:18 質問者: HS83als
解決済
2
0
-
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Excel VBAマクロをずっと勉強したいと思っています。本とかも持っています。プログラムの書き方の勉強を始めようと思うのですが、身につく迄にどれ位時間掛かるものでしょうか?ご教示の程よろしくお願いします。
質問日時: 2023/11/14 03:20 質問者: captain_spock
解決済
7
0
-
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ シート2は集計データ 元データの D4セルは東京 k4セルの数量は1 l4セルの数量は6 D5セルは東京 k5セルの数量は10 I5セルの数量は3 D6セルは千葉 k6セルの数量は5 l6セルの数量は1 D7セルは埼玉 k7セルの数量は9 l7セルの数量は9 D8セルは東京 k8セルの数量は5 l8セルの数量は4 D9セルは埼玉 k9セルの数量は6 l9セルの数量は50 最終行まで 集計データの D7セルは東京 k7セルの数量は16 l7セルの数量は13 D8セルは千葉 k8セルの数量は5 l8セルの数量は1 D9セルは埼玉 k9セルの数量は15 l9セルの数量は59 最終行まで Dim ws01 As Worksheet Dim ws02 As Worksheet Dim lastRowSrc As Long Dim lastRowDest As Long Dim I As Long Dim j As Long Dim lRow, mRow, R As Long Dim Hani01, Hani02 As Variant lRow = ws01.Cells(Rows.Count, "D").End(xlUp).Row Set Hani01 = ws01.Range("D4:D" & lRow) m行 = 2 ws02.Cells(mRow, "D") = "" まで実行します R = 0 ~ 11 の場合 Hani02 = Range(ws01.Cells(4, 11 + R), ws01.Cells(lRow, 11 + R)) を設定します。 ws02.Cells(mRow, 11 + R) = WorksheetFunction.SumIf(Hani01, ws02.Cells(mRow, "D"), Hani02) 次のR mRow = mRow + 1 loop
質問日時: 2023/11/13 17:56 質問者: ekgk
解決済
3
0
-
月ごとに作成している日報ファイルを、VBAでコピーし日付ごとのシートにしたい
こんにちは、VBA初心者です。有識者の型アドバイス頂けたら幸いです。 環境はOffice2016です。 行いたいことを下記します。 C:\ABC\1234.xlsx シート名:原本(B3、B4、B5以外には色々と記載あります) セル:B3 → yyyy セル:B4 → mm セル:B5 → dd 1.マクロを実行すると、入力メッセージが表示され、yyyy/mmを入力する。 2.1234.xlsxファイルをコピーし、入力した値よりmm月分.xlsxを作成する。 3.mm月分.xlsxに、1日、2日、3日~ のシート名で月末までのシートを作成する。 4.各シートのB3、B4、B5の値を、入力した値を元に変更する(例:2023 12 3) 5.土日、祝日のシートを、カレンダーもしくは別で定義した日付を元に削除する。 別で定義する際は、一年を通して事前に作成しておく。 上記になります。不明点などございましたらコメント頂ければと思います。 よろしくお願いいたします。
質問日時: 2023/11/11 08:41 質問者: shirotantan
ベストアンサー
1
0
-
VBAコンボボックスで選択した値をシートに転記したい
教えてください。 B列にはバーコード値、C列には商品名、K列には作成者の氏名を記載します。 ユーザーフォームを作成し、作成者をコンボボックスで表記させております。 作成者コンボボックスの隣に登録ボタンを作成しており、コンボボックスで選択した値を、"sheet1"K列2行目より縦に入力したいです。ただしB列のバーコード値が入力されていないセルは入力しない(バーコード値が入力されているセルまで入力)というマクロです。 ご教示よろしくお願いいたします。
質問日時: 2023/11/10 14:46 質問者: mokatsu
ベストアンサー
3
0
-
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
教えてください。 excel VBAで商品管理ソフトを作成しました。一連の流れは完成しましたが、やはりマクロの不慮の改変等が気になるので、ユーザーホームの作成も始めました。 早速の壁が、バーコードリーダーを用いて入庫作業をしますが、メインテキストボックスに入力したら、目的のシートに値は入るものの、カーソルが消えて毎回選択をしないといけません。メインテキストボックスにカーソルが常に表示されるマクロを教えてほしいです。 ちなみに、 ’メインテキストボックス TabIndex 1 Private Sub mc_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim Target As Range If mc.Value = "" Then Exit Sub Set Target = ThisWorkbook.Worksheets("sheet1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) Target.Value = mc mc.Value = "" End Sub Private Sub dm_Change() ’ダミーテキストボックス TabIndex 2 mc.SetFocus End Sub Private Sub CommandButton1_Click() Unload UserForm2 よろしくお願いいたします。
質問日時: 2023/11/10 14:20 質問者: mokatsu
ベストアンサー
1
0
-
マクロのコードについて教えてください
以下のコードを使用してメーカー毎にシートを指定して振り分けているのですが 指定した分はしっかりと振り分けられるのですが指定していないメーカー名は用意したシートに 全てコピーされてしまいます。 どこが悪いか分からず、直すところを教えてもらえないでしょうか? Sub 発注書作成() Dim m As String, i As Long Dim arry As Variant m = "メーカー1,メーカー2,メーカー3,メーカー4,メーカー5,メーカー6,メーカー7,メーカー8,メーカー9,メーカー10,メーカー11" arry = Split(m, ",") Worksheets("出荷指図書").Activate If ActiveSheet.AutoFilterMode = False Then Range("C8:C18").AutoFilter End If 'メーカーごとにコピー Application.ScreenUpdating = False For i = 1 To 11 'メーカーシートの数 Worksheets("出荷指図書").Activate ActiveSheet.Range("$C$6:$C$16").AutoFilter Field:=1, Criteria1:=arry(i - 1) Range("D9:G18").Copy Worksheets(arry(i - 1)).Activate Range("A11").PasteSpecial Paste:=xlPasteValues 'お客様名 Worksheets("出荷指図書").Activate Range("D6").Copy Worksheets(arry(i - 1)).Activate Range("E11").PasteSpecial Paste:=xlPasteValues '発注書印刷 If WorksheetFunction.Sum(Range("C11:C20")) <> 0 Then ActiveSheet.PrintPreview 'PrintOut End If Next Worksheets("出荷指図書").Activate ActiveSheet.Range("$C$6:$C$16").AutoFilter Application.ScreenUpdating = True End Sub
質問日時: 2023/11/10 11:10 質問者: すこやん
解決済
2
0
-
VBAに関して
以前、VBAでやりたい事を質問しつコードを教えて頂きました。実行した所、型が違うとのエラーで引っ掛かります。初心者のため、色々調べましたがよく分かりません。String=文字列 なので合ってると思うのですが…。 ☆で、2013/12。と入力して、★で引っ掛かかります。改行出来てませんが、下記にコード載せます。 有識者の方、ご指導頂けると幸いです。 宜しくお願い致します。 Sub test() Const fpath As String = "C:\ABC\" Dim wb1 As Workbook, wb2 As Workbook Dim sh1 As Worksheet, sh2 As Worksheet Dim ym As String Dim sdate As Date, edate As Date Dim rng As Range Dim wdate As ☆Date ym = InputBox("年月を yyyy/m の形式で入力してください" & vbCrLf & "例:2023/11") ★If ym = "" Then Exit Sub If IsDate(ym & "\1") = False Then MsgBox "日付エラー" Exit Sub Application.ScreenUpdating = False Application.DisplayAlerts = False sdate = DateValue(ym & "\1") edate = DateSerial(Year(sdate), Month(sdate) + 1, 1) - 1 Set rng = Range("休日") Set wb1 = Workbooks.Open(fpath & "1234.xlsx") wb1.Worksheets("原本").Copy Set wb2 = ActiveWorkbook Set sh1 = wb2.Worksheets("原本") For wdate = sdate To edate If Weekday(wdate, 2) < 6 And WorksheetFunction.CountIf(rng, wdate) = 0 Then sh1.Copy After:=wb2.Worksheets(wb2.Worksheets.Count) Set sh2 = ActiveSheet With sh2.Range("B1").Value = Day(wdate).Name = .Range("B1").Value & "日" End With End If Next wdate wb2.Worksheets(1).Delete wb1.Close wb2.Close SaveChanges:=True, Filename:=fpath & Month(wdate) & "月分.xlsx"Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox "処理終了" End Sub
質問日時: 2023/11/09 20:57 質問者: shirotantan
ベストアンサー
2
0
-
エクセルのマクロのコードについて
下のコードを使用してオートフィルタからA列を抽出し指定して別シートに貼り付けることが出来ましたが 空白の欄が指定していないシートに張り付いてしまいます。 どこを直していいのかわかりませんので、ご教授お願いいたします Dim m1 As String Dim arry As Variant Dim a2 As Long m1 = "メ1,メ2,メ3,メ4,メ5,メ6,メ7,メ8" arry = Split(m1, ",") Worksheets("発注書リスト").Activate If ActiveSheet.AutoFilterMode = False Then Range("A1:A11").AutoFilter End If For a2 = 1 To 9 Worksheets("発注書リスト").Activate ActiveSheet.Range("$A$2:$A$11").AutoFilter Field:=1, Criteria1:=arry(a2 - 1) Range("B2:B11").Copy Worksheets(arry(a2 - 1)).Activate Range("A11").PasteSpecial Paste:=xlPasteValues Next
質問日時: 2023/11/09 17:10 質問者: すこやん
解決済
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行し、指定サブフォルダ内にあるPDFファイルを作業フォルダ内に移動できるマクロを作成しましたがエラーがでてしまい上手く事項が出来ません解決方法を教えてください。 マクロの内容 移動元フォルダ 「\\nas-sp01\share\確認部\■01_敷地照会回答書」 フォルダ「■01_敷地照会回答書」の中に サブフォルダ 「0」 「1」 「2」 「3」 「4」 「5」 「6」 「7」 「8」 「9」 の各フォルダ10ケがあります。 「0~9」までのフォルダ内には半角英数字の8文字の末尾の数字のPDFファイルが収納されております。 例えば サブフォルダ「0」の中にファイル名「23465900」が収納されております。 マクロ設定ブックのシート名「青紙表」のセル値「R18」にも半角英数字の8文字が 表示されており サブフォルダ「0~9」に収納されているファイルをを検索し、 シート名「青紙表」のセル値「R18」と一致する管理番号のPDFファイルを作業ブック内に移動したいのですが。 マクロを実行し検索を開始し、該当ファイルが無い場合は メッセージ「該当ファイルがありません。」と表示され、マクロが終了 マクロを実行し検索を開始し、該当ファイルがあった場合は メッセージ「該当がありまました。」と表示され、「YES」をクリックすると メッセージ「該当ファイルを移動しますか」と表示され 「YES」をクリックすると指定フォルダから作業フォルダの該当ファイルを移動 メッセージ「該当がありまました。」と表示され、「NO」をクリックすると マクロが終了 例: サブフォルダ「0」の中にファイル名「23465900」が収納されており シート名「青紙表」のセル値「R18」に「23465900」が表示された場合に ファイルを上記の要領で移動 現状のマクロ Sub 行政回答確認() Const BASE_DIR As String = "\\nas-sp01\share\確認部\■01_敷地照会回答書" Const DST_DIR As String = "\\nas-sp01\share\確認部\移動先" Dim namePDF As String: namePDF = ThisWorkbook.Worksheets("青紙表").Range("R18") Dim srcDir As String: srcDir = BASE_DIR & "\" & Right(namePDF, 1) namePDF = namePDF & ".pdf" If Dir(srcDir & "\" & namePDF) = "" Then MsgBox "該当ファイルがありません。", vbExclamation Exit Sub End If If MsgBox("該当がありました。", vbYesNo + vbInformation) = vbNo Then Exit Sub If MsgBox("該当ファイルを移動しますか", vbYesNo + vbInformation) = vbNo Then Exit Sub Name srcDir & "\" & namePDF As DST_DIR & "\" & namePDF End Sub 上記のマクロを実行すると 実行エラー’53’: ファイルが見つかりません。→デバックを開くと コードの内 「Name srcDir & "\" & namePDF As DST_DIR & "\" & namePDF」 が黄色くなってエラーとなっております。 解決方法をよろしくお願いします。
質問日時: 2023/11/09 11:51 質問者: エクセル小僧
ベストアンサー
2
0
-
VBAについて 集計シートの『A5』にデータシート『I1』からコピーした「2023/10/1」がはい
VBAについて 集計シートの『A5』にデータシート『I1』からコピーした「2023/10/1」がはいっています。 下記のコードで表示形式を 「2023/10/1」→「2023年10月」 に変換しています。 マクロはExcel起動時に実行される設定ですが 開いた時の状態では、変換されておらず 該当セルをクリックすることで変換されます。 原因、解決策について教えてください。 コード Sheets(“Data”).Select Range(“I1”).Select Selection.copy Seets(“集計”).Select Range(“A5”).Select ActiveSheet.Paste With ActiveSheet .Cells(5,1).NumberFormatLocal = “yyyy年mm月” End With ↑まだまだ勉強中で非効率な書き方になっている かもしれませんがよろしくお願いします。
質問日時: 2023/11/08 11:14 質問者: おーいんゆ
ベストアンサー
4
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると 不要シートを削除し ダイナログが開き、保存先フォルダを指定して 指定セル値名でブックが保存されます。 マクロの機能を残しつつ 保存先だけを下記の内容に変更できる方法を教えてください。 保存先を、このマクロを設定しているカレントフォルダの一つ上のフォルダに保存出来るようにしたいのですが、可能でしょうか。(メッセージ等が非表示) よろしくお願いします。 現状のマクロ Sub 審査保存1() On Error Resume Next Application.DisplayAlerts = False Sheets(Array("F出張費", "F審査(紙)")).Delete Application.DisplayAlerts = True Application.ScreenUpdating = False Const folder As String = "\\nas-sp01\share\確認部\電子申請 関連\" Dim newName As Variant Dim initName As String initName = folder & Range("U1").Value newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm") If newName = False Then Exit Sub Dim WS As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean List = Array("休日") For Each WS In Worksheets Chk = False If WS.Visible = False Then For i = 0 To UBound(List) If WS.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & WS.Name & vbCrLf Application.DisplayAlerts = False WS.Delete Application.DisplayAlerts = True End If End If Next WS ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled Application.ScreenUpdating = True Application.Quit With ThisWorkbook .Saved = True .Close False End With End Sub 以上です。 よろしくお願いします。
質問日時: 2023/11/08 10:31 質問者: エクセル小僧
ベストアンサー
3
0
-
VBAを教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 s
VBAを教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 sheet」「対応表 sheet」があります。 商品名があ行、か行、さ行のものをそれぞれ日付ごとに合計し、「集計 sheet」で集計したいです。 「対応表 sheet」には、A列に大分類(あ行、か行、さ行)、B列に商品名(カンマ区切り)が入っています。 「集計 sheet」 のB6から右に日付 A7から下に大分類でそれぞれ集計したいです。
質問日時: 2023/11/07 12:51 質問者: おーいんゆ
ベストアンサー
2
0
-
VBAのコードを教えてください
試行錯誤して色々と試してみましたが、初心者のため苦戦しております。 詳しい方、コードのご教授お願いします。 A列にあるファイル名から、他のフォルダ内より該当する画像ファイルを検索し、その画像をO列に画像のみを表示させたいのです。 1. A列にファイル名が入力されています。 2. ファイル名には拡張子.pngが含まれていません。 3. ファイルは特定のフォルダ内のみ探します。 「C:Users¥★★★¥Desktop¥画像」内のみです。 4. ファイルが見つかったら、画像そのものをO列に表示させたい 他に必要な情報があればよろしくお願いします。
質問日時: 2023/11/04 21:17 質問者: さちほし
ベストアンサー
2
0
-
ユーザーフォームに別シートからデータを反映させたい。
今回初めてマクロを使って入力フォームを作った初心者です。 教えてください。 TextBox1 お客様番号 TextBox2 お客様氏名 TextBox3 住所 TextBox1にお客様番号を入れると別シートのデータから ”TextBox2 お客様氏名”と ”TextBox3 住所”が反映されるような設定にしたいです。 また、お客様番号を入れて修正ボタンを押すと入力された内容が表示され修正が出来る設定にしたいです。 登録ボタンへのコードは下記の内容になります。 Private Sub CommandButton1_Click() '登録ボタンをクリックしたときの処理 Dim LastRow As Long Dim MyOpt As String Dim i As Long 'ユーザーフォームの内容をExcelに転記 With Worksheets("接点記録") '最終行にプラス1 LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 .Cells(LastRow, 2).Value = Me.TextBox1.Text .Cells(LastRow, 3).Value = Me.TextBox2.Text .Cells(LastRow, 4).Value = Me.TextBox3.Text .Cells(LastRow, 5).Value = Me.TextBox4.Text .Cells(LastRow, 6).Value = Me.ComboBox1.Text .Cells(LastRow, 7).Value = Me.TextBox6.Text .Cells(LastRow, 8).Value = Me.TextBox7.Text .Cells(LastRow, 9).Value = Me.TextBox8.Text .Cells(LastRow, 10).Value = Me.TextBox9.Text TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" ComboBox1.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox9.Value = "" End With End Sub ご教示よろしくお願いいたします。
質問日時: 2023/11/03 08:46 質問者: yuki005
ベストアンサー
10
0
-
VBAでセル検索から対象行のセルをコピーする方法を教えてください。 B列に日付、C列からF列に数式が
VBAでセル検索から対象行のセルをコピーする方法を教えてください。 B列に日付、C列からF列に数式が入っています 例) B列 10月1日 10月2日 10月3日 10月4日 C列 空白 空白 数式A 数式B D列 空白 空白 数式AA 数式BB E列 ・ ・ 以上の内容で B列から日付を検索(10月3日)し 対象行のCからF列を選択してコピー、同一 箇所に値貼り付けといったVBAはどのように 書けばよろしいか教えて下さい。 わかりづらくて申し訳ございません。
質問日時: 2023/11/02 10:54 質問者: ペイす
ベストアンサー
3
0
-
excel 数値を入力し自動で他のセルの数値を移動させる方法
画像で説明すると A2に数字を新しく入力すると自動でC2に800の数字が移動して、 D2に700が移動、E2に600が移動、F2に500が移動、G2に400が移動、H2に300が移動、I2に200が移動、J2に100が移動になって、 J2に入っていた10は自動で消えるようにするシートモジュールを教えてほしいです。 ちなみにB3に入れた数字はC2に移動になってと下のところも同じくしたいのですが可能でしょうか? よろしくお願いいたします。
質問日時: 2023/10/31 17:16 質問者: msl.397
解決済
1
0
-
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
VBEについての質問です。 ExcelでVBAを記述する時に,VBEを開くと思いますが,Excelの開発タブから 「Visual Basic」というコマンドをクリックすると思いますが VBEを開くのに,なぜコマンドの名称は「Visual Basic」なのでしょうか?
質問日時: 2023/10/31 17:07 質問者: kirakira_star_
解決済
3
0
-
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Excel上に、赤・青・黄と3色に分類されたシートがあったとして、それぞれの色のシートの一つを値入力や変更したら、同色の他シートも全てそれに反映されるようにすることはできますでしょうか? 例えば、添付画像の[Red1]シートを変更したら[Red2]シート・[Red3]シートも同じ値に変更され、 同様に[Blue1]シートを変更したら[Blue2]シート・[Blue3]シートも、[Yellow1]シートを変更したら[Yellow2]シート・[Yellow3]シートも変更されるようにしたいです。 お詳しい方、どうかご教示願います。
質問日時: 2023/10/31 12:19 質問者: take_goma
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると 解凍ソフト「Lhaplus」を使用して圧縮ファイルを解凍できます。 このマクロを利用してWindows10の標準装備の解凍(ZIP形式)出来る方法を教えてください。 宜しくお願い致します。 マクロ Sub 解凍() On Error Resume Next Dim wsh As Object Dim Lhaplus実行ファイル As String Dim 圧縮データフォルダ As String Dim 解凍先フォルダ As String Set wsh = CreateObject("WScript.Shell") Lhaplus実行ファイル = "C:\Program Files (x86)\Lhaplus\Lhaplus.exe" 圧縮データフォルダ = ThisWorkbook.Path '①' 解凍先フォルダ = ThisWorkbook.Path wsh.Run Chr(34) & Lhaplus実行ファイル & Chr(34) & " /o:" & Chr(34) & 解凍先フォルダ & Chr(34) & " " & Chr(34) & 圧縮データフォルダ & Chr(34), , True Set wsh = Nothing MsgBox "全て解凍されました" End Sub 以上です。 宜しくお願い致します。
質問日時: 2023/10/31 08:47 質問者: エクセル小僧
ベストアンサー
2
0
-
Excel マクロについて
Excelのマクロで10個のセルの合計値が初めて200を超えたところに←を示すプログラムを作れ。また、10個のセルを合計しても200を越えない時は最後の行に合計値を表示せよ。 この問題でこの下の日本語の所を式に直すとどうなりますか? 教えてくださいm(_ _)m 全く分からなくて、、、 Dim i As Long Dim total As Long i=1 While 合計が200を超えていない かつ 11行目まで達していない iの行をtotalに足す iを1増やす Wend if 合計が200を超えている Then i行に"←" Else i行に合計値を入力 End If End Sub
質問日時: 2023/10/30 23:54 質問者: ぽんまめ
解決済
3
0
-
ExcelVBAコードについて
=COUNTIF(祝日管理!$E$2:$L$25, $A6) 上記のような条件付き書式が設定してあります。 祭日で稼働日があると塗りつぶしなしをしたいと思い、VBAコードで Sub 塗りつぶし削除マクロ() Dim rng As Range On Error Resume Next Set rng = Selection.SpecialCells(xlCellTypeConstants, xlCellTypeFormulas) On Error GoTo 0 If Not rng Is Nothing Then ' 選択したセルに条件付き書式が適用されている場合、塗りつぶしを削除する rng.Interior.ColorIndex = xlNone End If End Sub を入れましたが、実行しても塗りつぶしなしにならないのですが、何が原因でしょうか? 教えてください。お願いします。
質問日時: 2023/10/28 16:54 質問者: tttaaa7
ベストアンサー
5
0
-
vab パソコンが変わってPageSetupが合わなくなりましたので教えてください
いつもお世話になります 今まで社内でWindows10、Excel32bitVersionで統一されていましたが 最近、相次いでWindows10-Windows11のExcel64bitVersionが導入され 今までのPageSetupが合わなくなってきました 記述は With ActiveSheet.PageSetup .TopMargin = Application.CentimetersToPoints(3) .RightMargin = Application.CentimetersToPoints(1) .LeftMargin = Application.CentimetersToPoints(2) .BottomMargin = Application.CentimetersToPoints(1) .Orientation = xlLandscape .Zoom = 60 End With ActiveWindow.View = xlPageBreakPreview ActiveWindow.Zoom = 75 になります おそらくそれぞれのパソコンのセルスタイルに違いがあるのか?っと思っていますが 合わせ方がよく分かりません 「スタイルの結合」というのも聞きましたが、設定かVba上で元のステートメントのままで うまく行かないものかと悩んでいます。 もし、分かりましたら教えてください 以上、宜しくお願い申し上げます
質問日時: 2023/10/28 12:49 質問者: 公共ごま
ベストアンサー
1
0
-
VB.NetでMy.Settingsにセットされている値が空に表示さる
VB.NETでSettingsに3個の値をセットしています。そのうちの1個を確認のためにMsgBoxで表示しましたが、空になっています。 何故でしょうか? Settingsの内容は、プロジェクトのプロパティ、設定タブで確認しています。 原因と対策方法をご教示頂きたくお願いします。
質問日時: 2023/10/27 14:01 質問者: isunsun
ベストアンサー
1
0
-
FileCopy時のエラー
FileCopy "D:\◆◆.exe", "C:\◆◆.exe" で実行時エラー75 パス名が無効です。とエラーが発生します。 FileCopy "D:\◆◆.exe", "D:\Sample\◆◆.exe"ではエラーが発生しないのでたぶん\C:の部分が管理者権限の問題でエラーになっているのかなって思っています。 このエラーを回避する方法をご教示いただきたくお願いいたします。
質問日時: 2023/10/27 06:24 質問者: 物好きじいちゃん
ベストアンサー
7
0
-
VB.NETでボタンのクリックイベントハンドラが2回実行される
VB.NETの下記のボタンのクリックイベントハンドラが2回実行されます。 Private Sub BtnSetting_Click(sender As Object, e As EventArgs) Handles BtnSetting.Click, BtnSetting.Click : : End Sub 'Visual Studioでブレークポイントを設定 Visual Studio 2019で上記の「End Sub」ステートメントにブレークポイントを設定し実行したところ、1回目のブレークでステップインすると、上記の先頭ステートメントに制御が渡っています。 この2回実行される原因と対策方法をご教示頂きたくお願いします。
質問日時: 2023/10/26 11:46 質問者: isunsun
ベストアンサー
1
0
-
chromedriverのDLについて
windows10(64bit)です。 VBAでSeleniumを利用しております。 最新のchromedriverをDLするのに https://chromedriver.chromium.org/downloadsから DLしておりましたが現在のchromeのバージョン 118.0.5993.118と同様のバージョンがありま せんでした。 よく読むと「Chrome バージョン 115 以降を使用して いる場合は、Chrome for Testing の可用性ダッシュボ ードを参照してください。」 とありましたのでこちらを確認しましたが、 118.0.5993.118とまったく同一のものがありませんで した。 どのdriverをDLすればいいのでしょうか。
質問日時: 2023/10/26 05:32 質問者: 物好きじいちゃん
ベストアンサー
1
0
-
chatGPTで質問してみた エクセルのVBAについて
エクセルであるシート(A)の範囲(A1:D5)と範囲(E1:E5)を同時に別なシート 例えばシート(B)の同じ場所にコピーペーストしたい。 その時 別なシートへ移るときハイパーリンクで切り替えたいが もともとの最初(A)のシートの右側 例えば H1からH10までそれぞれのセルに移りたい各シート名を入れといて、あらかじめ 移りたいシートに移るハイパーリンクを作っておいた場合 そこのハイパーリンクされたセルをマウスでダブりクリックすると 自動的に移りたいシートに移り、最初のコピーしたシートと同じ位置 つまりはシートBの(A1:D5)と(E1:E5)にペーストされるようなVBAを教えてください とchatGPTに質問した。 帰ってきた答えは Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim ws As Worksheet Dim rngCopy1 As Range Dim rngCopy2 As Range Dim linkIndex As Long ' クリックされたハイパーリンクの位置を取得 linkIndex = Target.Range.Row - Me.Range("H1").Row + 1 ' シート名をH1からH10に対応するシート名に変更(必要に応じてカスタマイズ) Select Case linkIndex Case 1 To 10 Set ws = ThisWorkbook.Sheets("B") Case 11 To 20 Set ws = ThisWorkbook.Sheets("C") ' 必要に応じて他のケースを追加 End Select If Not ws Is Nothing Then ' シートAの範囲(A1:D5)と(E1:E5)をコピー If linkIndex <= 10 Then Set rngCopy1 = ThisWorkbook.Sheets("A").Range("A1:D5") Set rngCopy2 = ThisWorkbook.Sheets("A").Range("E1:E5") Else ' 例えば、範囲(E1:E5)もコピーしたい場合に対応 Set rngCopy1 = ThisWorkbook.Sheets("A").Range("A1:D5") Set rngCopy2 = ThisWorkbook.Sheets("A").Range("E1:E5") End If ' 対応するシートに移動して範囲をペースト ws.Activate ws.Range("A1").Resize(rngCopy1.Rows.Count, rngCopy1.Columns.Count).Value = rngCopy1.Value ws.Range("E1").Resize(rngCopy2.Rows.Count, rngCopy2.Columns.Count).Value = rngCopy2.Value End If End Sub と返答があったがAシート右に設定したBシートへのハイパーリンクにはペーストできるんだがAシート右に設定したCシートへのハイパーリンクセルをダブルクリックしてもBシートにいってしまってCシートにしはペーストできんのだが・・。
質問日時: 2023/10/24 07:37 質問者: norakurotodoroki
解決済
2
1
-
エクセル VBAでの転記の方法について
転記が上手くいきません。ご教授いただきたくお願いいたします。 A列から、名前、記号、県名、金額 の表があるとして、 名前”田中”の場合のみ、その列を右側セルに転記していくコードですが、 添付画像の様に、同じ値(ループ最後の25行目の田中列)だけが貼りついてしまい上手くいきません。 貼りつけたいのは、”田中、A、東京、100”、次の行に、”田中、C、神奈川、400”・・・と 次行へ続けたいのですが、下記コードで何がいけないのかの理由と、 できるだけ簡素に記述できるコード見本があればお願いいたします。 Sub 範囲3転記不具合() Dim rg As Range Dim ctR As Long Dim i As Long ctR = 2 For i = 2 To 25 If Cells(i, 1) = "田中" Then Set rg = Range(Cells(i, 1), Cells(i, 4)) rg.Copy Cells(ctR, 8).CurrentRegion ctR = ctR + 1 End If Next i End Sub
質問日時: 2023/10/22 19:14 質問者: お願いおせーてgoo
ベストアンサー
1
0
-
VB.NETでフォームアクティブのイベントハンドラが起動されない
VB.NETでForm1とForm2の2個のフォームがあります。そのForm1に対して、下記のアクティブイベントハンドラを作成しています。 Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) oveHandler Me.Activated, AddressOf Form1_Activated : : End Sub しかし、Form1がアクティブになっても、そのイベントハンドラが起動しません。 その原因と解決方法をご教示頂きたくお願いします。
質問日時: 2023/10/21 20:42 質問者: isunsun
ベストアンサー
1
0
-
Range.RemoveDuplicates メソッド
Excelの Range.RemoveDuplicates メソッドの Columns オプションの指定方法について、ご相談させてください。 次の構文は、正しく処理できます。 ActiveSheet.Range("$A$1:$C$10").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes Columns オプションを動的に変更したく、次のように書き換えたのですが「プロシジャの呼出、または引数が不正です」となり、正しく処理されません。 Dim ary As Variant ary = Array(1, 2, 3) ActiveSheet.Range("$A$1:$C$10").RemoveDuplicates Columns:=ary, Header:=xlYes 正しく動作させるためには、どのように指定したら良いでしょうか。
質問日時: 2023/10/21 13:50 質問者: ママチャリ
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると指定フォルダ内にワイルドカードで指定した フォルダの有無を検索し、メッセージが表示されます。 このマクロを ワイルドカードの数字の部分を 例えば「12345678-6_」 マクロを設定しているブックのシート名「番号」のセル値「C1:C6」に記載のある番号 に変更して該当フォルダの有無を検索できるように変更する方法を教えてください。 該当フォルダが複数あり場合は、メッセージボックスにその旨を表示出来るようにしたいのですが、 よろしくお願いいたします。 一つの例ですが 画像のパターンですと メッセージボックスに「12345678-6_北海 太郎」と「123456789-1_北海 花子」の2つを表示です。 マクロ Sub フォルダ検索() Dim 検索フォルダパス As String 検索フォルダパス = "C:\Users\160931\Desktop\10月16日\テスト" Dim 該当フォルダパス As String Dim dir結果値 As String dir結果値 = Dir(検索フォルダパス & "\12345678-6_*", vbDirectory) Do While dir結果値 <> "" Dim dir結果パス As String dir結果パス = 検索フォルダパス & "\" & dir結果値 If GetAttr(dir結果パス) And vbDirectory Then 該当フォルダパス = dir結果パス Exit Do End If dir結果値 = Dir() Loop If 該当フォルダパス <> "" Then MsgBox "該当フォルダのパス:" & 該当フォルダパス End If End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2023/10/19 17:13 質問者: エクセル小僧
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
下記のマクロを設定しております。 マクロを実行するとダイアログが表示されて、選択したフォルダ内に 「検査時必要図書(正本)」がコピー出来るように設定しておりますが。 マクロを実行しても、指定フォルダがコピーされません。 この問題の解決方法を教えてください。 よろしくお願いいたします。 マクロ Sub フォルダコピー() Dim Dst As Variant With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub Dst = .SelectedItems(1) End With Dim FSO As Object Dim Adr As String Set FSO = CreateObject("Scripting.FileSystemObject") Adr = ThisWorkbook.Path FSO.CopyFolder Adr & "\検査時必要図書(正本)", Dst End Sub
質問日時: 2023/10/19 09:27 質問者: エクセル小僧
ベストアンサー
1
0
-
マクロの修正方法の質問です。
添付写真のように、B列にフィルターをかけて、 みかんだけのフィルターで印刷 りんごだけのフィルターで印刷 以下繰り返し と、フィルター上で選べるものを全て自動で印刷するようなマクロの作り方を教えていただきました。 このB列指定のフィルターを C列のフィルターに変更して、 長野だけのフィルターで印刷 山梨だけのフィルターで印刷 以下繰り返し と、するにはどこを直せばよろしいでしょうか? 数百件あるので、教えていただけると助かります。 どうぞ宜しくお願い致します。 マクロは以下です。 Sub PrintFilteredData() Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim filterRange As Range Dim uniqueItems As Collection Dim item As Variant Set ws = ThisWorkbook.Sheets("a") Set rng = ws.Range("A1").CurrentRegion Set filterRange = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count) Set uniqueItems = New Collection On Error Resume Next For Each cell In filterRange.Columns(2).Cells If cell.Value <> "" Then uniqueItems.Add cell.Value, CStr(cell.Value) End If Next cell On Error GoTo 0 For Each item In uniqueItems ws.AutoFilterMode = False filterRange.AutoFilter Field:=2, Criteria1:=item ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ws.AutoFilterMode = False Next item End Sub
質問日時: 2023/10/19 09:11 質問者: asdfxz
ベストアンサー
1
1
-
リストボックス複数選択抽出方法
いつもお世話になっております 下記の部分を複数選択したいのですが どうしたよろしいでしょうか If r.Value = ListBox1.List(ListBox1.ListIndex) Then A列 担当 B列 名前 C列 性別 Private Sub UserForm_initialize() With ListBox1 .AddItem "工藤" .AddItem "加藤" .AddItem "遠藤" .AddItem "佐藤" .Font.Size = 14 .MultiSelect = fmMultiSelectMulti End With End Sub Private Sub CommandButton1_Click() Dim dic As Object Dim r As Range, rr As Range Dim key1, key2, i As Integer Set dic = CreateObject("Scripting.Dictionary") For Each r In Range("A2", Cells(Rows.Count, "A").End(xlUp)) If r.Value = ListBox1.List(ListBox1.ListIndex) Then If Not dic.exists(r.Value) Then dic.Add r.Value, _ CreateObject("Scripting.Dictionary") If Not dic(r.Value).exists(r.Offset(, 1).Value) Then _ dic(r.Value).Add r.Offset(, 1).Value, _ CreateObject("System.Collections.ArrayList") dic(r.Value)(r.Offset(, 1).Value).Add (r.Offset(, 2).Value) End If Next Set rr = Range("F2") Range("F:H").Clear For Each key1 In dic.keys rr.Value = key1 For Each key2 In dic(key1).keys Set rr = rr.Offset(1) rr.Offset(, 1).Value = key2 Set rr = rr.Offset(1) For i = 0 To dic(key1)(key2).Count - 1 rr.Offset(i, 2).Value = dic(key1)(key2)(i) Next Set rr = rr.Offset(dic(key1)(key2).Count - 1) Next Set rr = rr.Offset(1) Next Set dic = Nothing End Sub
質問日時: 2023/10/18 17:40 質問者: りんごプリン
ベストアンサー
6
1
-
VBA とびとびの列を結合させる
E列からI列に固定でなくデータが入っています。 VBAで各行ごとに、データが入っているとびとびのセルを J列のように結合させ表示したいのですがうまく動きません。 構文は以下のようにしました。 どこが間違っているか教えてください。 ※G列は使用しません。 For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 10) = WorksheetFunction.Concat(Range("H:I", "E:F")) Next どなたかお願いします。
質問日時: 2023/10/18 11:12 質問者: mihomiho34
解決済
1
0
-
VBAでC列が入力済みならそのままの値を表示し、空白ならA列の値で別ブックからVlookupしたい。
空白でない場合はネットでお見掛けするのですが、逆はどうしたら良いのか独学歴も浅く自力では最早解決出来そうになく、皆様の知恵をお借りしたいです。 表のとある列に空白が所々空いており、それを埋める様な形をFor NextでWorksheetFunction.Vlookup を回して別ブックの表から値を持って来れたらと思っています。 色々ネットを見ながら組んだのですが、最後のWorksheetFunctionの辺りでコードが上手くいきません。 エラー回避を入れると最後までコードは動く様になるのですが、欲しい結果は得られません。 イミディエイトを見ていると何やら転送先ファイルの範囲を上手く選択出来ていない様なのですが、どうしたら良いのか分からず自分ではお手上げです。 どうか、ご教授お願いします。 Dim Nd As String Nd = Worksheets(“Meinmenu”).Range(“F19”).Value’年の値が入っています Dim Nd2 As String Nd2 = Worksheets(“Meinmenu”).Range(“E21”).Value’月の値が入っています Dim NewFN As String NewFN = (“転記先” & Nd & “年” & Nd2 & “月.xlsx”) Call コール用5‘転記先をアクティブ Worksheets(Nd & “年上期”).Select Dim i As Long For i = 13 To Cells(Rows.Count,3).End(xlUp).Row Dim x As Range x = Worksheets(Nd & “年上期”).Cells(i,”A”) If Cells(i,”C”) = “” Then Cells(i,”C”).Value _ = WorksheetFunction.Vlookup(x,Workbooks (“転記元.xlsm”).Worksheet(“転記用”).Range(“A2: 130”),2,False) End If Next i 宜しくお願いします。
質問日時: 2023/10/17 23:30 質問者: 洋司
ベストアンサー
2
0
-
環境依存文字?をEnumで定義したい
添付画像の環境委依存文字?(Unicode:9745)をEnum、もしくは、Const で定義したいのですが、VBE上で入力すると、"?" で表示されてしまいます。 定義する方法は、ありますか?
質問日時: 2023/10/17 21:14 質問者: ママチャリ
ベストアンサー
2
0
-
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
いつもお世話になります 人の古いプログラムで標準モジュールから、ユーザフォームのSubroutineを 呼び出しているのですが(Dialog Open) 「オブジェクトが必要です」というエラーが出ます 自分はこんな使い方をしたことがないのでよく分からないので 教えてもらいたく投稿しました。 (標準モジュール) '********************************** ' ファイルデータ入力 '********************************** Public Sub ①データ読込み(Optional IsMsg) With Application .SheetsInNewWorkbook = 3 End With ' UserForm1.cmdGetTabFile_Click ' Dialog Open If IsGetCancel = False Then Call GetPaste End If End Sub (UserForm1) Public Sub cmdGetTabFile_Click() Dim filename As String IsGetCancel = True With CommonDialog1 If strInTextDIR = "" Then strInTextDIR = CurDir End If Application.DefaultFilePath = strInTextDIR .InitDir = strInTextDIR .CancelError = False .filename = "" .Filter = "断面照査データ(*.TXT)|*.TXT|全て|*.*" .ShowOpen If .filename = "" Then Exit Sub End If If Dir(.filename) = "" Then MsgBox "No FIle " & .filename Exit Sub End If TabFileNAME = .filename IsGetCancel = False End With strInTextDIR = getFilePath(TabFileNAME) End Sub 以上、よろしくお願い申し上げます
質問日時: 2023/10/17 15:06 質問者: 公共ごま
ベストアンサー
2
0
-
指定した条件で行セルを非表示にするVBAについて
いつもお世話になっております。 この度、指定した条件でchat-GPTに助言を求めたところ、下記のVBAを提示していただいたのですが、重複している行セルが非表示になってくれず困っております。 指定条件は、例えばD列に重複している文字列が入力されており、かつE列にPCの文字が入力されている場合、その重複している行セルを非表示にする処理を構築したいのですが ' D列の重複文字列とE列の含む"PC"をチェックし、行セルを非表示にする For i = 10 To lastRow Dim cellD As String Dim cellE As String cellD = ActiveSheet.Cells(i, 4).Value cellE = ActiveSheet.Cells(i, 5).Value If Not dictD.Exists(cellD) Then dictD(cellD) = 1 Else dictD(cellD) = dictD(cellD) + 1 End If If InStr(1, cellE, "PC", vbTextCompare) > 0 Then If Not dictE.Exists(cellD) Then dictE(cellD) = 1 Else dictE(cellD) = dictE(cellD) + 1 End If End If If dictD(cellD) > 1 And dictE(cellD) = 1 Then ActiveSheet.Rows(i).EntireRow.Hidden = True End If Next i こちらのVBAを実行したところ、PCが入力されている行セルだけが非表示となり、Surfaceが入力されている行セルは表示されたままとなります。 この重複している行セルを非表示にすることは可能なのでしょうか? よろしくお願いいたします。
質問日時: 2023/10/17 03:09 質問者: pino382
ベストアンサー
17
1
-
VBA 何かしら文字が入っていたら
以下のルールで構文をかきたいのですが、あれこれやっても動きません。 データはH1から固定数ではなくデータがはいってます。 H列に何かしらの文字が入っていたらI列に「-」を返す 空白の場合は空白で 以上の構文をどなたかお願いします。
質問日時: 2023/10/16 15:43 質問者: mihomiho34
解決済
2
1
-
クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう
現状 (ケース1) ネット上にてホームページの文字列をコピー(ハンド作業) ⇒①マクロ実行(ブックAに文字列が貼付) ⇒②マクロ実行データの一部をブック2へ転記 ⇒クリップボードから、ネット上にてコピーしたホームページの文字列が消えている (ケース2) ネット上にてホームページの文字列をコピー(ハンド作業) ⇒①マクロ実行(ブックAに文字列が貼付) ⇒ブック1に貼付された、データをハンドでデリートする ⇒クリップボードから、コピーした文字列は消えない 【改善したい事】 ケース2のように、クリップボードからコピーした文字列が 消えないようにしたい。そのまま残しておきたいです。 ご存じの方、宜しくお願いします 【①ブックAへデータを貼付するコード】 Sub 他のExcelへユニコード書式にて貼付_MSGBOXあり() Dim CB As Variant CB = Application.ClipboardFormats If CB(1) = True Then MsgBox "クリップボードにコピーされていません", vbOKOnly + vbCritical, "A部門" Exit Sub End If Worksheets("転記元").Range("A10").Select Worksheets("転記元").PasteSpecial Format:="Unicode テキスト" End Sub 【②ブック2へデータを貼付】 Sub 別ブックへ転記() Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow2 As Long Dim row2 As Long Dim i As Integer Set ws1 = Worksheets("転記元") For i = 1 To Workbooks.Count If Workbooks(i).Name = "book2.xlsx" Then '転記先のブック。 Set wb2 = Workbooks(i) End If Next Set ws2 = wb2.Worksheets("sheet1") '転記先シート maxrow2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row '転記先のブックB列 row2 = maxrow2 + 1 ws2.Cells(row2, 2).Resize(1, 8).Value = ws1.Range("A1").Resize(1, 8).Value '転記元から転記先へ7セル分を転記.a1から7セル分。天気先。1列目から。 ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1) wb2.Save '転記先のブックを上書き End Sub
質問日時: 2023/10/15 13:36 質問者: aoyama-reiko
解決済
1
0
-
(マクロ)もともとある書式(文字列)をクリアーしないようにしたい。
以下のコードは、エクセル上にある文字をクリアーするコードです 普通に動きます。 しかし、書式で文字列にしておいたものも、(標準)に書式を戻してしまいます 文字だけクリアーして、書式はクリアーしないように出来ないでしょうか? ご存じの方、教えて下さい (コード) Range("A10:XFD1048576").Clear
質問日時: 2023/10/14 17:57 質問者: aoyama-reiko
ベストアンサー
1
0
-
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
以下のコードは、エクセルのシートのA10に主に ネットのブラウザの情報をコピーして貼付ます。 ただし、何もコピーしていない状態で実行すると エラーになります でバックは以下です。 ●クリップボードに何も張り付いていなくてもエラーにならない方法 ●クリップボードに何も張り付いていなければ、メッセージ(何も張り付いていません)と 表示されるにしたいです。 ご存じの方、教えて下さい (デバック) Worksheets("転記元").PasteSpecial Format:="Unicode テキスト" 【コード】 Sub a10貼付() Worksheets("転記元").Range("A10").Select Worksheets("転記元").PasteSpecial Format:="Unicode テキスト" End Sub
質問日時: 2023/10/14 17:10 質問者: aoyama-reiko
解決済
1
0
-
【マクロ】複数シートを印刷する方法
標題の件、以下3つのシートを印刷するコードを教えて下さい 出来る限り簡単なコードが良いです。 ネットにて調べましたが、複雑なものが多かったです。 ご存じのかた、宜しくお願いします Sheet1 Sheet2 Sheet3
質問日時: 2023/10/14 10:01 質問者: aoyama-reiko
ベストアンサー
2
0
-
VBA マウスクリックとキーボードの判定のGetAsyncKeyStateについて教えてください
いつもお世話になります ウェッブ調べて使ってみましたが、説明がよくわからず Debug.Print を入れてチェックしてみました Do If GetAsyncKeyState(vbKeyLButton) = 32768 Then '...マウス左クリックの判定 Debug.Print "check1", GetAsyncKeyState(vbKeyLButton) Exit Do ElseIf GetAsyncKeyState(vbKeyReturn) = 32768 Then '...エンターキーの判定 Debug.Print "check2", GetAsyncKeyState(vbKeyReturn) Exit Do ElseIf GetAsyncKeyState(vbKeyEscape) = 32768 Then '...エスケープキーの判定 Debug.Print "check3", GetAsyncKeyState(vbKeyEscape) GoTo ErrOut End If Loop 今、三つのKeyでチェcckしてみましたが押されたときはみなプラスの32768のようですが これで良いのですか? ちょっと不安だったので投稿してみました 押される前は"0"か"1"みたいですが 以上、宜しくお願い致します
質問日時: 2023/10/11 18:33 質問者: 公共ごま
ベストアンサー
2
0
-
Windows 11 Pro での、VBAのCode書き換えで、1点お教え願います。
6年程前に、市販のBVA参考書をベースに、PCでアルバム閲覧Softを自作する折、デジカメの***.JPGの撮影日時を読み込むVBA_codeに手こずり、この「教えてGoo」でいろいろヒントを頂いて、完成できました(多謝)。 **現在、当時のWindows8から、Windows11 Proに移行中で、一か所、VBA_Codeで苦戦中です。 画像4枚を貼りました。VBA_UserForm1のListBox1で、写真リスト番号2389が、番号23と表示されて、下2桁の89が隠れてしまいます。一か所書き換えればと思いますが、どのCodeを書き換えれば良いか見当がつきません。 **** 何かヒントを頂ければ幸いです。**** まず、VBA_Codeを足ります。あと画像3枚を追加添付します。 ********** VBA_UserForm1、ListBox1 のCode ' *** UserForm1 code ' Universal Dim Dim Fname As String Dim RowPos As Integer Dim zycount As Integer Private Sub Frame1_Click() End Sub Private Sub Image1_Click() End Sub Private Sub TextBox8_Change() End Sub Private Sub UserForm_Initialize() Dim i As Integer Dim Str1 As String Dim Str2 As String ' RowPos as integer as Universal ' zycount As Integer as Universal Worksheets(1).Select RowPos = 11 zycount = 1 Do Str1 = Cells(RowPos, 3) ' PhotoName 日本語 Str2 = Cells(RowPos, 2) ' PhotoName カメラ連番FileName xxx.jpg ListBox1.AddItem (zycount) ListBox1.List(zycount - 1, 1) = (Str1) RowPos = RowPos + 1 zycount = zycount + 1 Loop While Str2 <> "" ' ListBox1.RemoveItem RowPos - 12 'setting Initial Photo=The last On Error GoTo ErrorHandler ListBox1.Selected(RowPos - 13) = True 'ListBox1_Clickと等価 一番最後にセット ' ListBox1.Selected(0) = True 'ListBox1_Clickと等価 一番最初にセット UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom Exit Sub ErrorHandler: MsgBox "表示する写真が一枚も登録されていません" & vbCr & vbCr & _ "「写真追加作業」で、写真を登録してから、写真閲覧ボタンをクリックしてください。" End End Sub Private Sub CommandButton1_Click() Unload Me UserForm2.Show End End Sub Private Sub ListBox1_Click() Dim myPath As String ' Dim Fname As String as Universal ' RowPos as integer as Universal ' zycount As Integer as Universal RowPos = ListBox1.ListIndex + 11 With Worksheets(1) myPath = .Cells(RowPos, 1) ' myPath = "C:\Users\ZY\Documents\柳澤写真\20xy年" Fname = .Cells(RowPos, 2) '写真番号 xxx.jpg File Name TextBox6.Value = .Cells(RowPos, 3) 'Photo Name TextBox3.Value = .Cells(RowPos, 4) 'Date TextBox4.Value = .Cells(RowPos, 5) 'Place TextBox5.Value = .Cells(RowPos, 6) 'Memo TextBox1.Value = .Cells(RowPos, 7) 'Camera TextBox2.Value = .Cells(RowPos, 8) 'Size TextBox8.Value = myPath & " \" & Fname 'Photo Address" End With Fname = myPath & "\" & Fname Image1.Picture = LoadPicture(Fname) '写真表示 End Sub Private Sub CommandButton2_Click() UserForm1.Image1.PictureSizeMode = fmPictureSizeModeClip Image1.Picture = LoadPicture(Fname) End Sub Private Sub CommandButton3_Click() UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom Image1.Picture = LoadPicture(Fname) End Sub Private Sub TextBox1_Change() Worksheets(1).Cells(RowPos, 7) = TextBox1.Value 'カメラ End Sub Private Sub TextBox2_Change() Worksheets(1).Cells(RowPos, 8) = TextBox2.Value 'サイズ KB End Sub Private Sub TextBox3_Change() Worksheets(1).Cells(RowPos, 4) = TextBox3.Value '更新・撮影日時 End Sub Private Sub TextBox4_Change() Worksheets(1).Cells(RowPos, 5) = TextBox4.Value '撮影場所 End Sub Private Sub TextBox5_Change() Worksheets(1).Cells(RowPos, 6) = TextBox5.Value 'メモ End Sub Private Sub TextBox6_Change() Worksheets(1).Cells(RowPos, 3) = TextBox6.Value 'Revised Photo Name ListBox1.List(ListBox1.ListIndex, 1) = TextBox6.Value 'Revised Photo Name End Sub Private Sub ExitBtn_Click() Unload Me Application.Quit '/// AutoOpen.Show End End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Unload Me Application.Quit End End If End Sub ***以上 2023/10/11 PLSヘルプme
質問日時: 2023/10/11 01:12 質問者: PLSヘルプme
ベストアンサー
2
1
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
日本古来の伝統工芸「金継ぎ」で修復した食器は前と同じように使えるの?
大切にしている食器が割れてしまったら、きっと誰もが「元に戻したい」と願うだろう。「教えて!goo」にも「割ってしまったお気に入りの食器を復活できる?」という質問があり、最適な方法について様々な意見が寄せら...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダに格納されているファ...
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
【ExcelVBA】値を変更しながら連続...
-
VBA 別ブックからコピペしたいので...
-
[VB.net] ボタン(Flat)のEnable時の...
-
【ExcelVBA】インデックスが有効範...
-
Excel VBA 定義されたプロージャ名...
-
Excel-VBAのmsgBox()の不思議
-
時間短縮のために、テキストファイ...
-
vbaにてseleniumを使用したedgeスク...
-
現在のブックを閉じないで、マクロ...
-
Outlookにて既にウィドウ単体で開い...
-
excelのVBAについて、以下のコード...
-
Excel VBA 選択範囲の罫線色の変更...
-
Excel関数またはVBAでの質問になります
-
Outlookの「受信日時」「件名」「本...
-
VBA実行後に元のセルに戻りたい
-
VBA ユーザーフォーム ボタンクリッ...
-
VB.net(VB)で、フォームにExcelファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAなくなるの?
-
VBAでCOPYを繰り返すと、処理が途中...
-
vba 削除
-
プログラミング
-
Excelのマクロについて教えてくださ...
-
Excelのマクロについて教えてくださ...
-
エクセルのVBAコードについて教えて...
-
久しぶりのプログラミング
-
ユーザーフォームに別シートからデ...
-
エクセルVBAコードで教えて下さい!
-
VBA 別ブックからコピペしたいので...
-
ExcelのVBAコードについて教えてく...
-
VBAコードについて教えてください。
-
vba アクティブシートの名前変更に...
-
Excelのマクロについて教えてくださ...
-
エクセルVBA
-
Geogebraの操作方法について
-
マクロの記録を使用したマクロの実...
-
Excel(M365) Vlookup/セル反転(VBA)...
-
Excel 範囲指定スクショについて Ex...
おすすめ情報