Visual Basic（VBA）(17ページ目)

VBAマクロでデータ集計の結果を出すマクロの記載方法を教えてほしい、この結果が出た時にフォントの色を変更したいがその時のVBAコードの組み方を教えてほしい、このエラーメッセージの解決方法を知りたい等こちらに参考情報があるかもしれません。

回答数

気になる

ＳＱＬで抽出

いつもお世話になっておりますエクセルのブック1　ブック1の中にSheet1があり Sheet1のデータをＳＱＬでSheet2に抽出します。ここまではよいのですが、日付は抽出するのですが、文字は空白になってしまいます。日付の列の中には日付以外の文字がふくまれています。 strSQL = "" strSQL = strSQL & " SELECT strSQL = strSQL & " 顧客番号,日付" strSQL = strSQL & " FROM " strSQL = strSQL & " [Sheet1$] " わかる方おしえてくれませんでしょうか

質問日時: 2022/12/04 13:55 質問者: りんごプリン

ベストアンサー

4

2
数字が「０」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct

数字が「０」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunctionが定義されていませんとなります。どこを直したらよいか教えてください。 Sub 数字がゼロの列を一括削除() Dim i As Long Dim j As Long Dim LastRow As Long Dim LastClm As Long '最終列 LastClm = Range("C2").End(xlToRight).Column '最終行 LastRow = Cells(Rows.Count, 3).End(xlUp).Row '行をループ For i = LastRow To 1 Step -1 '列をループ For j = 2 To LastClm '値が0だったら If Cells(i, j) = "0" Then '最終列まで0だったら If j = LastClm Then '列削除 Column(j).Delete End If Else '値に0以外があったら、次の行へ Exit For End If Next j Next i End Sub

質問日時: 2022/12/04 00:00 質問者: momo_2123

ベストアンサー

3

0
前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「

前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「2022/10/14」でフィルターした結果をシート2のセルC3へ入れると、0件になってしまいます。10/14のりんごは3件あるのですがなぜだか教えていただけませんでしょうか。 Sub test2() With Sheets("Sheet1").Range("B2").CurrentRegion .AutoFilter Field:=2, Criteria1:=Sheets("Sheet2").Range("B3").Value .AutoFilter Field:=1, Criteria1:=Sheets("Sheet2").Range("C2").Value Sheets("Sheet2").Range("C3").Value =　_ 　　　 .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1 End With End Sub

質問日時: 2022/12/02 17:37 質問者: momo_2123

ベストアンサー

2

1
2つの条件に合うセルにデータを転記したい

excel vbaについて質問です。下記画像のようにシート1、シート2がありシート1の内容をシート2に転記したいです。転記したいのはシート1の金額で、シート2の会社名（行）と月（列）の交わる位置に転記するようにしたいです。なお、シート2の月は1月はじまりと決まっているわけではなく、シート1のデータによって開始月を変更する予定です。よろしくお願いします。

質問日時: 2022/12/02 11:05 質問者: jabcksjergt

ベストアンサー

4

0
Sheet1の出荷日と品名が並んだ表からSheet2の品名別出荷日別の個数一覧表を作っています。オ

Sheet1の出荷日と品名が並んだ表からSheet2の品名別出荷日別の個数一覧表を作っています。オートフィルターで品名と日付を条件に個数をカウントし転記していますがマクロで自動化できないかと試行錯誤していますができません。 Sheet2のセルC3だけカウントする下記マクロを作りましたが、条件が多く先に進めません。 ①月間の発生日付が決まっていない（ＭＡＸ月間31日） ②取り扱い品名の中、発生する品名が決まっていない（取り扱い品名りんご、ぶどう、いちご、ばなな、みかん、めろん）変数を使ってカウントするのだろうとはおもうのですがどこをどう変更したら良いか教えてください。 Sub test1() Dim Count As Long Range("B2").AutoFilter 1, "2022/10/14" Range("B2").AutoFilter 2, "りんご" Count = WorksheetFunction.Subtotal(3, Range("B2").CurrentRegion.Columns(1)) Worksheets(2).Activate Range("C3").Value = Count - 1 End Sub

質問日時: 2022/12/01 23:54 質問者: momo_2123

ベストアンサー

3

1
EXCEL VBAの記述を教えてください。

こんばんは。 EXCEL VBAの記述を教えてください。（エラーがわかりません。） dim j as long "=IF(MOD(F " & j & "" , J " & j & " ),IF( F " & j < J " & j ", """" , 1 ),(F " & j " ) "

質問日時: 2022/12/01 20:10 質問者: tommygoo1

ベストアンサー

3

0
ExcelのVBAでX=0〜1の定積分を実行する計算プログラムを作成したいです。どなたか教えてくださ

ExcelのVBAでX=0〜1の定積分を実行する計算プログラムを作成したいです。どなたか教えてください。

質問日時: 2022/12/01 16:06 質問者: Tjdi

解決済

1

0
excelVBAについて。

excelVBAのサンプルコードは、一応書籍には、Cドライブに入れてお使いください。と書いていますが、私は、Cドライブに入れてないのですが、大丈夫なのでしょうか？教えていただけると嬉しいです。

質問日時: 2022/12/01 04:28 質問者: メラゾーム

ベストアンサー

3

0
４月～3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range("

４月～3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range("C3:C17")をコピーしてSheet1へ貼り付けたい。毎月貼り付ける位置が違うので、Sheet２のセルC2へ貼り付け月を入力し、Sheet1の同一月の列へ貼り付けるにはどのようにしたら良いか教えてください。 Cellsの列を変数にしてコードを書きたいのですがマクロ勉強中で下記より先に進めません。 Sheets(2). Range("C3:C16").Copy Sheets(1).Cells(4, i)

質問日時: 2022/11/30 16:37 質問者: momo_2123

ベストアンサー

2

0
excelVBAについて。

Sub データ抽出() ' ' データ抽出 Macro ' ' Sheets("オリジナルデータ").Select Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A" Columns("A:E").Select Selection.Copy Range("B371").Select Sheets("TR-A").Select Range("A1").Select ActiveSheet.Paste Sheets("オリジナルデータ").Select Application.CutCopyMode = False Selection.AutoFilter Sheets("オリジナルデータ").Select End Sub で、Range(″B371″)がなくても良いのでしょうか？後、この後のプログラムを1行ずつ解説して頂けないでしょうか？教えていただけると嬉しいです。以下のURLをダウンロードしていただけないでしょうか？この章のチャプター5です。 https://www.shuwasystem.co.jp/support/7980html/2606.html

質問日時: 2022/11/30 06:16 質問者: メラゾーム

ベストアンサー

1

0
エクセルのマクロについて教えてください。

コード Sheets("北海道").Visible = [AF3] = "北海道" があります。このコードはセル値 [AF3] = "北海道"の場合にシート名("北海道")が表示されるようになっております。これをセル値 [AF3] = "北海道"の場合にシート名("北海道")("北海道(新)")の2つのシートを表示される方法を教えてください。よろしくお願いいたします。

質問日時: 2022/11/29 14:08 質問者: エクセル小僧

ベストアンサー

1

0
VBA同じシートの別ブックに転記していく方法

VBA初心者です。名前が一致した別ブックに転記していく作業ですが、全く分かりません。動画や本を読んでいるのですが、わからないのでご教授いただける方がいましたらお願い致します。 https://i.gyazo.com/4ecdc8983c4792f7b2399b3f07c416f1.png 上のシート名（ここではAさんとしておきます。）の同じ色の部分の数字を別ブックの同じシートの同じところに転記していくマクロです。 https://i.gyazo.com/72d879bbb255b9a6a7c8f6fc3e733ef3.png 上記のブックの『Aさん』を開くと https://i.gyazo.com/6a1c7ae407e1d7cc9d6a5edef87194c4.png ここに転記していく様にしたいのですが、うまくいきません。サンプルではA～Fまでですが、実際は30シートくらいあります。名前が一致した別ブックに転記していく方法を是非ともご教授お願いします。

質問日時: 2022/11/28 12:14 質問者: みぃLove

ベストアンサー

3

0
ユーザーフォームでのリストボックス連動（VBA）

excel vbaについて質問です。ユーザーフォームでのリストボックスの連動です。画像のように業者をシートに登録して、別のユーザーフォームで連動したリストとして表示させたいです。 ※住所や連絡先は業者の区別のために使いたいです。住所や連絡先が同じであれば追加できない仕様にしたいです。リストには新しい業者が追加される度にデータが追加されるようにしたいのですが知識がないため、教えていただきたいです。よろしくお願いします。

質問日時: 2022/11/28 11:41 質問者: jabcksjergt

ベストアンサー

3

0
excelVBAについて。

Sub データ抽出() ' ' データ抽出 Macro ' ' Sheets("オリジナルデータ").Select Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A" Columns("A:E").Select Selection.Copy Range("B371").Select Sheets("TR-A").Select Range("A1").Select ActiveSheet.Paste Sheets("オリジナルデータ").Select Application.CutCopyMode = False Selection.AutoFilter Sheets("オリジナルデータ").Select End Sub このプログラムでB３７１は何を意味するのでしょうか？教えて頂けると幸いです。 B371は、TRーAではないのに、その時に、A列〜E列をコピーした後で、B371は普通選べないと思うのですが。教えていただけると嬉しいです。すみません。

質問日時: 2022/11/27 18:48 質問者: メラゾーム

ベストアンサー

5

0
VBAプログラミング

プログラミングを勉強しているものです。以下に示すプログラムを修正して原点を1とする半径が1の円の上半円の半円のグラフ描くプログラムを作りたいのです。直す箇所は２行だけと書いてあったのですが、何処をどのように直せば良いか教えていただきたいです。宜しくお願い致します。 Sub ex12() fillfunc 0#, 10#, 60 mygraph 1, 1, 61, 2 End Sub Sub fillfunc(x1 As Double, x2 As Double, nd As Integer) Dim n As Integer Dim x As Double, y As Double, dx As Double dx = (x2 - x1) / nd With Worksheets("Sheet1") For n = 0 To nd x = x1 + dx * n y = Sin(x) .Cells(n + 1, 1) = x .Cells(n + 1, 2) = y Next n End With End Sub Sub mygraph(sr As Integer, sc As Integer, lr As Integer, lc As Integer) ActiveSheet.ChartObjects.Add(200, 10, 240, 200).Select ActiveChart.ChartWizard _ Source:=Range(Cells(sr, sc), Cells(lr, lc)), _ gallery:=xlLine, Format:=2, PlotBy:=xlColumns, _ categorylabels:=1, serieslabels:=0, HasLegend:=2, _ Title:="y", categorytitle:="x", valuetitle:="", extratitle:="" End Sub

質問日時: 2022/11/27 12:13 質問者: wqmpmpw

解決済

2

0
VBAプログラミング

プログラミングを勉強しているものです。以下に示すプログラム(例題12)を修正してy＝x^2のグラフをx＝-2からx＝2の範囲の範囲で描くプログラムを作りたいのです。直す箇所は２行だけと書いてあったのですが、何処をどのように直せば良いか教えていただきたいです。宜しくお願い致します。 Sub ex12() fillfunc 0#, 10#, 60 mygraph 1, 1, 61, 2 End Sub Sub fillfunc(x1 As Double, x2 As Double, nd As Integer) Dim n As Integer Dim x As Double, y As Double, dx As Double dx = (x2 - x1) / nd With Worksheets("Sheet1") For n = 0 To nd x = x1 + dx * n y = Sin(x) .Cells(n + 1, 1) = x .Cells(n + 1, 2) = y Next n End With End Sub Sub mygraph(sr As Integer, sc As Integer, lr As Integer, lc As Integer) ActiveSheet.ChartObjects.Add(200, 10, 240, 200).Select ActiveChart.ChartWizard _ Source:=Range(Cells(sr, sc), Cells(lr, lc)), _ gallery:=xlLine, Format:=2, PlotBy:=xlColumns, _ categorylabels:=1, serieslabels:=0, HasLegend:=2, _ Title:="y", categorytitle:="x", valuetitle:="", extratitle:="" End Sub

質問日時: 2022/11/27 12:07 質問者: wqmpmpw

解決済

2

0
QRコード作成マクロについて

お世話になっております。 QRコードを使ってラベルを作ろうと思います。 QRコード単体を作成はできましたが、どのように連続で処理させればよいか悩んでいます。やりたいこととしては、 A8セルの情報をQRコード化してD2に貼り付け A15セルの情報をQRコード化してD9に貼り付け A22セルの情報をQRコード化してD16に貼り付け A29セルの情報をQRコード化してD23に貼り付け A36セルの情報をQRコード化してD30に貼り付けこれを列を移動させて連続して処理させたいです。下記に現状のコードを記載します。 Sub createQRCode() Dim ws As Worksheet Dim xObjOLE As OLEObject Dim topPosition As Double Dim leftPosition As Double Set ws = Worksheets("Sheet1") Set xObjOLE = ws.OLEObjects.Add("BARCODE.BarCodeCtrl.1") With xObjOLE.Object 'QRコード(=11)を指定 .Style = 11 .Value = Cells(8, 1).Value End With With ws.Range("D2").MergeArea topPosition = .Top leftPosition = .Left End With With xObjOLE .Height = 19.5 .Width = 49.5 .Top = topPosition .Left = leftPosition End With Set xObjOLE = Nothing End Sub マクロに関して初心者で無知の為お力添え頂ければ幸いです。よろしくお願いいたします。

質問日時: 2022/11/26 16:55 質問者: うらうらP

ベストアンサー

3

1
textbox1についの質問

いつもお世話になっておりますおしえてくれませんでしょうか textbox1に入力してエンターを押したらとなりのコマンドボタン1に移動する方法

質問日時: 2022/11/26 07:51 質問者: りんごプリン

ベストアンサー

1

1
vbaの計算 if elseと範囲について

BMIの結果から、痩せ・標準・やや肥満・肥満　の4つに判定したいのですが、下記のコードを実行しても反映されません。xlToRightをしているので自動的に右に進んでいくものだと思っていたのですが…。 '求められたBMIで判定をし該当セルに書き込む　より下を確認して頂きたいです。よろしくお願いします。 Sub report5() Dim i As Integer, j As Integer, students As Integer Dim lastRow As Integer, firstClm As Integer Dim iStart As Integer, iEnd As Integer Dim height(5) As Single, weight(5) As Integer Dim heightStandard(5) As Double, BMI(5) As Double lastRow = Cells(Rows.Count, "B").End(xlUp).Row firstClm = Cells(lastRow, "A").End(xlToRight).Column students = 5 ' Debug.print lastRow & "/" & firstClm iStart = lastRow - students + 1 iEnd = lastRow For i = 1 To students '身長と体重を配列の中に保存する height(i) = Cells(i + 29, "C") / 100 weight(i) = Cells(i + 29, "D") '標準体重とBMIを求めて配列の中に保存する '標準体重kg=22*(身長m)^2 Cells(i + 29, "E") = 22 * (Cells(i + 29, "C") / 100) ^ 2 '標準体重とBMIを該当セルに書き込む Cells(i + 29, "F") = Cells(i + 29, "D") / (Cells(i + 29, "C") / 100) ^ 2 '求められたBMIで判定をし該当セルに書き込む If Cells(i + 29, "F") <= 18.5 Then result = "痩せ" ElseIf Cells(i + 29, "F") <= 25 Then result = "標準" ElseIf 25.1 <= Cells(i + 29, "F") And Cells(i + 29, "F") <= 30 Then result = "やや肥満" ElseIf 30.1 <= Cells(i + 29, "F") And Cells(i + 29, "F") < 50 Then result = "肥満" End If Next i End Sub

質問日時: 2022/11/26 01:49 質問者: apupoops

解決済

6

0
VB6の公式リファレンスはありますか？特に既定のプロパティを知りたいです

VB6の質問ですがこちらで失礼します。 VB6の公式リファレンスはありますか？もしくは詳細が載っているサイトは著書があれば教えていただきたいです洋書でも構いません

質問日時: 2022/11/25 12:00 質問者: DoubtOwl

ベストアンサー

1

0
テキストボックスの値を該当セルに登録する方法

いつもお世話になっておりますわかる方おしえてくれませんでしょうか添付ファイルのように　Ｂ列のどこかのセルクリックしてテキストボックス表示させたあと、そのＧ列に値をテキストボックス３に入力した値をコマンドボタン　登録を押して入力する方法わかる方おしえてくれませんでしょうかよろしくお願いいたします。

質問日時: 2022/11/23 18:47 質問者: りんごプリン

ベストアンサー

2

1
Ｂ列のアクティブセルの隣の列をテキストボックスに表示

いつもお世話になっておりますおしえてくれませんでしょうかユーザーフォームにコマンドボタンがあります。コマンドボタンが押下タイミングでＢ列のアクティブセルの隣の列をテキストボックスに表示されたいのですが、わかる方おしえてくれませんでしょうか添付ファイルはデータです。次の添付ファイルはユーザーフォームの形を添付いたします

質問日時: 2022/11/22 14:15 質問者: りんごプリン

ベストアンサー

4

1
【VBAエラー】Nextに対するForがありません対策について

VBA初心者です。エクセルの表で、エラーがある行を削除し同じ処理をシートの最後まで続けたいと思い、下記のコードを書きました。 Dim ws As Worksheet Dim Rng As Range For Each ws In ThisWorkbook.Worksheets Application.ScreenUpdating = False With ActiveSheet.UsedRange On Error Resume Next Set Rng = .SpecialCells(xlCellTypeFormulas, xlErrors) On Error GoTo 0 If Not Rng Is Nothing Then Rng.EntireRow.Delete Application.ScreenUpdating = True End If Next End Sub 実行すると【コンパイルエラー　Nextに対するForがありません】のエラーが出てしまいます。どこを修正すればよいか、お知恵を拝借できますと幸いです。何卒よろしくお願い申し上げます。

質問日時: 2022/11/21 21:26 質問者: kurumikko-6

ベストアンサー

5

0
excelVBAについて。

Sub データ抽出() ' ' データ抽出 Macro ' ' Sheets("オリジナルデータ").Select Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$E$1000").AutoFilter Field:=2, Criteria1:="TR-A" Columns("A:E").Select Selection.Copy Range("B371").Select Sheets("TR-A").Select Range("A1").Select ActiveSheet.Paste Sheets("オリジナルデータ").Select Application.CutCopyMode = False Selection.AutoFilter Sheets("オリジナルデータ").Select End Sub このプログラムでB３７１は何を意味するのでしょうか？教えて頂けると幸いです。

質問日時: 2022/11/21 16:15 質問者: メラゾーム

ベストアンサー

4

0
VBAマクロでシートコピーした新シートにコピー元シートとの計算式の入れ方を教えて下さい。

VBAマクロの初級者です。ようやく実務でマクロを使い始めましたが躓く事ばかりです。今回はあるブックの中のシートＡをコピーして作成したシートBの「A3セル」への「シートAのA1セル」と「シートBのA2セル」の合計の仕方を教えていただけないでしょうか。シートをコピーして左のシート(コピー元)の特定セルとアクティブシート(コピーしたシート)の特定セルの合計を出すようなマクロを作ってみましたがエラーも出ず結果も反映されずといった状態になってしまいます。よろしくお願いいたします。

質問日時: 2022/11/20 09:48 質問者: monkimu

ベストアンサー

5

0
VBA言語プログラミング

エクセルのVBA言語でプラグラミングを勉強しているものです。画像の7-2の問題で、プログラムの表記方法が合っているのか教えてください。間違っていれば正しい表記を記述していただけるとありがたいです。

質問日時: 2022/11/19 17:16 質問者: wqmpmpw

ベストアンサー

1

1
【マクロ】表への繰り返し転記について

マクロの転記について質問です。添付画像のように、右側のH・I列に情報を入力したら左側の表に町丁目名・世帯数を横へ3つずつ、繰り返して転記出来るようなマクロを組みたいのですがなかなか上手くいきません。右側に入力する町丁目名・世帯数の情報の量は変動する為、例えば1000個を上限として繰り返し作業できるものを作れたらなと考えてます。詳しい方、コードの組み方をご教示頂けますと幸いです。初心者で申し訳ありません、よろしくお願いします。

質問日時: 2022/11/19 16:30 質問者: 3106m

解決済

1

0
Excel VBA マクロホルダー内にある複数のファイルを規則に従い格納をしたいです

お世話になっております。ホルダー内にある複数のファイルをある規則に従い格納するマクロを作成したいです。どうぞ宜しくお願い申し上げます。 ※Win11 Office365です。 ※先に、コードと国名対応を記載致します（101：日本、202：アメリカ、308：イギリス、427；スペイン、599：ロシア、689：ベルギーです） ※これらの名称は例ですので、名前やコードが異なります。コードと名前が変わっても、応用して使えると有難いです。年月ホルダー例えば『2022年10月』の中に、『日本』、『アメリカ』、『イギリス』、『スペイン』、『ロシア』、『ベルギー』等、各国のホルダーと、『項目』のホルダーが入っています。さらに、例えば『日本』のホルダー内に『①経済・法律・政治』、『②科学』、『③言語』、『工業』等のホルダーが入っています。（①等の番号が振っていないホルダーもあります）（各国のホルダー内のホルダーの名前は一律です）『項目』ホルダーの中には、『経済』、『科学』、『法律』、『工業』、『政治』、『言語』等のホルダーがあります。『項目』ホルダー内の例えば『経済』のホルダー内に、各国のコードが含まれているファイル、例えば『101経済』、『202経済』、『308経済』、『427経済』、『599経済』、『689経済』等のホルダーが入っています。『項目』ホルダー内の例えば『科学』のホルダー内に、各国の国名が含まれているファイル、例えば『日本_科学新聞』、『アメリカ_科学新聞』、『イギリス_科学新聞』、『スペイン_科学新聞』、『ロシア_科学新聞』、『ベルギー_科学新聞』等のホルダーが入っています。これらのファイルを例えば『101経済』であれば101は日本にあたるので年月ホルダー『2022年10月』の中の『日本』のホルダー内の『①経済・法律・政治』に入れて、ファイル名『日本_科学新聞』であれば日本とあるので『日本』のホルダー内の『②科学』に入れたいです。『項目』ホルダーの中の他のホルダー『法律』、『工業』、『政治』、『言語』等のホルダー内のファイルも同様に年月ホルダー『2022年10月』の中の各”国名”のホルダー内に『①経済・法律・政治』、『②科学』、『③言語』、『工業』等のホルダーに振り分けたいです。画像を添付致しましたが、見づらく申し訳ございません…。複雑で大変申し訳ございませんが、コードをお教えいただいけると有難いです。出来ましたら、コードごとにどのような作業をしているのかお教え下さると勉強になります…（出来ればで差支えございません…）ご回答を楽しみにお待ちしております。どうぞ宜しくお願い申し上げます。

質問日時: 2022/11/19 10:58 質問者: yuri_7

ベストアンサー

4

0
エクセル VBA 条件付き転記

段階”0”に入力されているグループを次の段階”0”になるまで転記する。を最終行まで繰り返したいです。初心者で自力で取り組みましたが出来ず。どなたかご教授いただけないでしょうか。

質問日時: 2022/11/18 16:18 質問者: yu806

解決済

4

0
順列をランダムに発生するプログラム

8 7 9 3 5 2 1 4 6 4 7 8 1 9 2 5 6 3 2 5 4 3 6 7 9 8 1 2 1 4 6 8 9 3 7 5 8 3 1 2 6 4 9 5 7 のような9桁の順列をランダムに発生するプログラムを十進BASICで作ったのですが、ものすごく遅いです(^O^)。稀に数秒でできることもありますが、ほとんど15秒以上かかります。　このコードではCでやっても遅いと思います。いい方法はないでしょうか？ DIM s(1 TO 9) LET flg = 1 LET st = TIME DO WHILE flg = 1 　 RANDOMIZE 　 FOR n = 1 TO 9 　　　LET s(n) = INT(RND*9+1) 　 NEXT n 　 FOR n = 1 TO 9 !ここが遅い原因　　　FOR k = n+1 TO 9 　　　　 IF s(n) = s(k) THEN GOTO 100 　　　NEXT k 　 NEXT n 　 LET flg = 0 100 LOOP 　　　　FOR n = 1 TO 8 　　　 PRINT USING "# ": s(n); 　　NEXT n 　　PRINT USING "#": s(9); 　　　　LET ed = TIME 　　PRINT 　　PRINT 　　PRINT　"所要時間 ";ed-st END

質問日時: 2022/11/16 12:16 質問者: アンドロメダシティ

ベストアンサー

1

0
【VBA】データを入力後に，同一シート内に履歴として転記するVBAコードを教えていただきたいです。

データを入力した後に，同一シート内に履歴として転記するVBAコードを教えていただきたいです。 A7：M27の表に入力したデータと，その番号に対応した2つめの表A30:H39のデータを，同一シート内の履歴（転記先）に転記させたいです。転記後は転記元のデータが転記先の履歴に残っていくようにしたいです（添付写真参照）。詳しい条件としましては，・転記元のデータは上限10個の項目を入力することができ，毎回データ数が同じとは限りません。（写真では項目4～9の部分を非表示にしています）・転記元の上の表については1項目につき2行をセル結合して使用，H列I列に関してはセル結合せずにそれぞれデータ入力しています。・転記先の履歴では1つの項目についてのデータを全て1行で横並びに表示させたいです。・入力の最終行に必ずつける「以下余白」の転記は不要です。・転記元にデータ入力→履歴に転記→転記元データクリアの一連の流れを繰り返しできるようにしたいです。 VBA初心者で本やサイトを参考にしても似た事例が見つけられず，知識も浅いため困っています…。どなたか教えていただけたらとても助かります。よろしくお願いします。

質問日時: 2022/11/16 01:37 質問者: きゆー

解決済

3

0
VBAで大量データの処理

エクセルで以下のようなデータがあります。やりたいのは、各要素ごとに足し算していき、合計値の行列がほしいです。エクセル内で行数列数は変わりません。データはすべて数値で小数点以下もあります。本当のデータは100行200列が100回繰り返しくらい大量です。Ｎoも気にしなくてよく、上から順に足したいです。配列でやろうとしましたが、配列で各要素に足していく方法が分からなくて困っています。よろしくお願いします。 0 2 5（No,行数,列数） 2 2 2 2 2（データ） 2 2 2 2 2（データ） 1 2 5 1 1 1 1 1 1 1 1 1 1 2 2 5 以下続く

質問日時: 2022/11/15 21:53 質問者: dopel

ベストアンサー

3

0
VBA 罫線について B列3行目から21行毎にデータがはいります。データがはいったらデータが入った

VBA 罫線について B列3行目から21行毎にデータがはいります。データがはいったらデータが入った場所に罫線が入るようになっているのですが、B列にデータがはいったら下に17行ずつ罫線をいれたいです。どのように変えたらよいのでしょうか。ご教示お願いいたします。 Option Explicit Sub RuleSet1() Dim I As Long For I = 1 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(I, 2) <> "" Then Range(Cells(I, 2), Cells(I, 3)). _ Borders(xlEdgeBottom).LineStyle = xlContinuous End If Next I End Sub

質問日時: 2022/11/15 17:22 質問者: himawarikk0

ベストアンサー

6

0
VBAで時間（00：00形式）を積算（足し算）したい

workDataシートの16列目に平日昼間の勤務時間（5時間の時には5：00）が入っています。同じく17、18、19列に平日夜間、特定日昼間、特定日夜間の勤務時間が入っています。下記のように、これらをスタッフ毎に集計するプログラムを作っています。 staffTotalシートの59〜62列に、4つの時間帯を積算したものを入れたいです。現時点でエラーが出ず動くのですが、肝心の時間積算が誤っています。（変数をDim myTime As Dateとすることでエラーは出なくなったが、計算結果が違っている）時間を積算する部分に間違いがあると思うのですが、どうしたら良いか分かりません。一旦シリアル値（？）に戻して足し算をするとか、そんな雰囲気かと思うのですが、具体的な方法がわかりません。 Dim lg As Long, i As Long, sid As Long Dim st As Long, n As Long Dim myTime As Date lg = Worksheets("workData").Cells(Rows.count, 1).End(xlUp).Row 　　 '変数sidは、 workData該当行(i)の担当ID sid = Worksheets("salesData").Cells(i, 5).Value '変数sidの番号を、staffTotalの担当IDから探し、staffTotalでの行番号stを取得する st = Worksheets("staffTotal").Range("A2:A21").Find(sid).Row 　　For i = 2 To lg '平日昼間、平日夜間、特定日昼間、特定日夜間の時間をstaffTotalに積算　For n = 16 To 19 'workDataの16から19列が該当するのでFor文でループ　myTime = Worksheets("workData").Cells(i, n).Value 　Worksheets("staffTotal").Cells(st, 43 + n).Value = Worksheets("staffTotal").Cells(st, 43 + n).Value + myTime 　Next n next i

質問日時: 2022/11/15 17:04 質問者: 88suihou88

ベストアンサー

1

1
VBAのﾕｰｻﾞｰﾌｫｰﾑのﾃｷｽﾄボックスに入力制限をしたい

セル番地データをﾌｧｲﾙ名にするﾏｸﾛを作成したいと思い、ﾕｰｻﾞｰﾌｫｰﾑからセル番地データを入力できるようにﾃｷｽﾄボックスを作りました。しかし、使用する人がセル番地「aaa」や「abvd」など番地では無いデータを入力する可能性があり、制限する方法が難しいです。 ISREF関数を使いましたが、ｴﾗｰ処理のｺﾒﾝﾄアウトで何時間も悩んでおります。どなたかご教示お願致します。 Private Sub Execution_Click() Dim code, Name As String Dim wb1, wb2 As Workbook Dim ExtentionName As String Dim fso As New FileSystemObject '定数の宣言 Const folderpath As String = "C:\Users\_\Desktop\test1" 'ｴﾗｰ処理 If [IsRef(TextBox1.Value)] = True Or [IsRef(TextBox2.Value)] = True Then Else MsgBox ("適切なセル形式を入力してください") Exit Sub End If filePath = Dir(folderpath & "\" & "*.xls") 'フォルダの中のファイル名を返します '------------------------------フォルダ内部処理---------------------------------- Do While filePath <> "" '変数に空白が入るまで処理を繰り返す If filePath <> Application.ThisWorkbook.Name Then 'マクロ実行ファイル以外を処理 Workbooks.Open Filename:=ThisWorkbook.path & "\" & filePath Set wb1 = ThisWorkbook 'このブック Workbooks.Open ThisWorkbook.path & "\" & filePath '別ブック Workbooks(filePath).Activate Set wb2 = ActiveWorkbook '--------ファイル内部処理--------- code = wb2.Worksheets(1).Range(TextBox1.Value).Value Name = wb2.Worksheets(1).Range(TextBox2.Value).Value '--------ファイル内部処理--------- Workbooks(filePath).Close Savechanges:=False ExtentionName = fso.GetExtensionName(filePath) '拡張子取得 Dim OldName Dim NewName OldName = ThisWorkbook.path & "\" & filePath NewName = ThisWorkbook.path & "\" & code & "_" & Name & "." & ExtentionName 'filePath = code & "_" & Name & "." & ExtentionName If fso.FileExists(NewName) Then 'newname　があるかないか '書き変えない Else Name OldName As NewName 'ﾌｧｲﾙ名変更 End If End If '直前に指定したファイル名が指定されたものとして、まだ返していないファイル名を順に返す filePath = Dir() Loop 'Do While に戻る '------------------------------フォルダ内部処理---------------------------------- End Sub

質問日時: 2022/11/15 08:28 質問者: tanukiin

解決済

6

1
vbaサブフォルダーをワイルドカードで取得したい

vbaでファイルを開く際にフォルダー名、ファイル名は分かっていますが、そのファイルのあるサブフォルダーが分かりません。ファイル名はセルの文字列を変数に入れて開きます。サブフォルダーの名前は全く関連がなく、dir関数とワイルドカードを使っても共通の文字などがないためあいまい検索できません。何か良い方法をご存知でしたら教えていただけませんか?

質問日時: 2022/11/15 08:04 質問者: ももんがかわいい

ベストアンサー

2

0
VBAでvlookup関数から、別シート参照するやり方・・・

図のように、 sheet(2)B列.２行目を→sheet(3)B列.２行目に VBA　vlookupから値を返す方法を教えて下さい。

質問日時: 2022/11/14 18:49 質問者: bibi君

解決済

2

0
フレームワーク「4.8.1」で、[Sub Main]が動かない。助けて下さい

「Visual Sutudio 2022」のVisual Basicにて開発をしています。「Sub Main」からのフォームの起動をしたいのですが、ターゲットフレームワークを「4.8.1」にすると、[Sub Main]が通らずに終了してしまいます。「4.8.0」だと、動きます。「4.8.1」で動かす為には、何が必要でしょうか？ ●設定等 ①開発ツールは、　　Microsoft Visual Studio Professional 2022 (64 ビット) 　　　　- Current Version 17.3.4 ②作成は、「Windowsフォームアプリ .Net Framework」にて作成 ③アプリケーションフレームワークを有効 ④スタートアップオブジェクトを「Sub Main」にする ⑤ClsMainを記述 ●以下が、ClsMainクラス ----------------------------------------------------------- Imports System.Windows Public Class ClsMain <STAThread()> Shared Sub Main() Call MessageBox.Show("[Sub Main]は起動している") Application.Run(Form1) End Sub End Class -----------------------------------------------------------

質問日時: 2022/11/14 15:40 質問者: ghost305jp

ベストアンサー

3

0
任意の置換を互換の積で表すプログラム

任意の置換を互換の積で表すプログラムを作りたいと思い以下のように考えたのですが、動作がおかしいです。　恒等置換τに対し互換の積を施したものを改めてτとし、それを繰り返してσに到達する方法です。【例】 (1 2 3 4 5 6 7 8 9) =σ (5 3 9 8 7 2 1 4 6) (1 2 3 4 5 6 7 8 9)=τ (1 2 3 4 5 6 7 8 9) (1 2 3 4 5 6 7 8 9)(1 5) = (5 2 3 4 1 6 7 8 9) (5 2 3 4 1 6 7 8 9)(2 3) = (5 3 2 4 1 6 7 8 9) (5 3 2 4 1 6 7 8 9)(2 9) = (5 3 9 4 1 6 7 8 2) (5 3 9 4 1 6 7 8 2)(4 8) = (5 3 9 8 1 6 7 4 2) (5 3 9 8 1 6 7 4 2)(1 7) = (5 3 9 8 7 6 1 4 2) (5 3 9 8 7 6 1 4 2)(6 2) = (5 3 9 8 7 2 1 4 6) [1] i = 1, k = σ(i) = 5, j =τ(i) = 1, τ=τ(j k) = τ(1 5) [2] i = 2, k = σ(i) = 3, j =τ(i) = 2, τ=τ(j k) = τ(2 3) [3] i = 3, k = σ(i) = 9, j =τ(i) = 2, τ=τ(j k) = τ(2 9) [4] i = 4, k = σ(i) = 8, j =τ(i) = 4, τ=τ(j k) = τ(4 8) [5] i = 5, k = σ(i) = 7, j =τ(i) = 1, τ=τ(j k) = τ(1 7) [6] i = 6, k = σ(i) = 2, j =τ(i) = 6, τ=τ(j k) = τ(6 2) [7] i = 7, k = σ(i) = 1, j =τ(i) = 1, σ(i) =τ(i) none 10BASICのコード DIM s(1 TO 9) DIM t(1 TO 9) LET s(1) = 5 LET s(2) = 3 LET s(3) = 9 LET s(4) = 8 LET s(5) = 7 LET s(6) = 2 LET s(7) = 1 LET s(8) = 4 LET s(9) = 6 LET t(1) = 1 LET t(2) = 2 LET t(3) = 3 LET t(4) = 4 LET t(5) = 5 LET t(6) = 6 LET t(7) = 7 LET t(8) = 8 LET t(9) = 9 FOR i = 1 TO 9 　 LET k = s(i) 　 LET j = t(i) 　 IF k <> j THEN 　　　LET dmy = t(j) 　　　LET t(j) = k 　　　LET t(k) = dmy 　 END IF 　 PRINT " i = ";i; 　 PRINT " j = ";j; 　 PRINT " k = ";k; 　 PRINT "　 ("; 　 FOR n = 1 TO 9 　　　PRINT t(n); 　 NEXT n 　 PRINT ")" NEXT i END 結果 i = 1 j = 1 k = 5 ( 5 2 3 4 1 6 7 8 9 ) i = 2 j = 2 k = 3 ( 5 3 2 4 1 6 7 8 9 ) i = 3 j = 2 k = 9 ( 5 9 2 4 1 6 7 8 3 ) ここからおかしい i = 4 j = 4 k = 8 ( 5 9 2 8 1 6 7 4 3 ) i = 5 j = 1 k = 7 ( 7 9 2 8 1 6 5 4 3 ) i = 6 j = 6 k = 2 ( 7 6 2 8 1 2 5 4 3 ) i = 7 j = 5 k = 1 ( 1 6 2 8 1 2 5 4 3 ) i = 8 j = 4 k = 4 ( 1 6 2 8 1 2 5 4 3 ) i = 9 j = 3 k = 6 ( 1 6 6 8 1 2 5 4 3 ) i=6まで互換の組み合わせは合っているので、あとは t() の入れ替えがおかしいと思うのですが、原因がわかりません。

質問日時: 2022/11/13 19:10 質問者: アンドロメダシティ

ベストアンサー

4

0
VBAで一時中断したプログラムの再開をさせたい

VBAで参照しているCSVに不足があった場合一旦中断させて追記して再開させたいと思っています。不足があった場合に stop を使って一旦中断は出来るのですが、再開させる方法を調べてもVBEでF5で再開させる方法しか見つからず困っています。 F5で再開でもいいのですが出来るだけスッキリさせたいのですがxlsm上のボタンなどで再開させる方法はありませんか？またはstopを使う方法以外で中断・再開させる方法で私のやりたいことが出来るような方法はありませんか？ご教示お願いいたします。

質問日時: 2022/11/13 11:15 質問者: sakura393938

ベストアンサー

1

0
Excel VBA マクロ先頭行の固定とオートフィルター設定を全てのシートに適用したいです

大変お世話になっております。以下のVBAコードですが、 Sub 先頭行を固定オートフィルター設定() Rows(2).Select ActiveWindow.FreezePanes = True ActiveSheet.Range("A1").AutoFilter '// 設定 End Sub このコードは、アクティブシートにしか適用されません。 1）選択をした全てのシートに適用をしたいです 2）同BOOK（仮に”BOOK1”とします）の全ての表示しているシートに適用したいです（非表示シートは適用せずに…） 3) 同BOOK（仮に”BOOK1”とします）の全てのシートに適用したいです（開いているBOOK全てに適用は避けたいです…）１）から　3）がどのようなコードとなるのかお教え頂けると有難いです。（１）２）3）の何れかのコードでも差支えございません。）ご回答を心よりお待ちしております。どうぞ宜しくお願い申し上げます。

質問日時: 2022/11/12 15:32 質問者: yuri_7

ベストアンサー

1

1
VBAの計算について

初心者です。上の図の情報から下の図を完成させるには、どうすればいいのでしょうか…… 条件分岐が出来ません。

質問日時: 2022/11/12 01:24 質問者: apupoops

解決済

2

0
VBAでvlookupで価を返しましたが、2列目以降の表示するには・・・

下の画像から「2列目」にしているので、答えはその列が入ります。ただ、通常のVLOOKだと、列番号の箇所にCOLUMN 関数とか、上に番号を付けて複合参照を使えば、残りが返えせますが、ｖBAで、2～4列まで表示するには、どうしたらいいでしょうか？

質問日時: 2022/11/11 20:20 質問者: bibi君

ベストアンサー

3

0
VBAでWEBサーバー上に保存されたPDFファイルのリンク有効チェックについて

VBAでハイパーリンク確認して開けるか開けないかのチェックを掛けたいです。対象はWEB上のPDFファイルです。問題となっているのがページ指定したときです。下のサンプルでは１ページ目を開きたいため"#page=1"を含めているのですが、ステータス番号404が返ってきてしまいます。Web検索で直接入力すれば開けることが確認できます。ページ番号を除けばVBA上でステータス番号200が返ってきて問題なく開けることが分かるのですが、ページ指定していてもリンクが切れていないことが分かるように修正したいです。何か回避策はありますでしょうか。 Sub sample() Dim req Dim MyUrl As String Set req = CreateObject("Microsoft.XMLHTTP") MyUrl = "http://www.hikawa.kai.ed.jp/wp-content/uploads/2019/09/sample_pdf.pdf#page=1" req.Open "GET", MyUrl, False req.Send Debug.Print req.Status End Sub

質問日時: 2022/11/11 16:04 質問者: ゴードメリー

ベストアンサー

1

0
形式を選択して貼り付け以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコ

形式を選択して貼り付け以下のコードで「元」シートと「先」シートのA列に同じ値があったら指定範囲をコピペをしています。これを数式で貼り付けの仕様に変更したいです。お詳しい方宜しくお願い致します。 Dim c As Range, r As Range With Sheets("元") For Each c In .Range("A7", .Cells(Rows.Count, "A").End(xlUp)) If c <> "" Then Set r = Sheets("先").Range("A7", Cells(Rows.Count, "A")).Find(c) If Not r Is Nothing Then c.Copy r c.Offset(, 6).Resize(2, 6).Copy r.Offset(, 6) Set r = Nothing End If Next End With

質問日時: 2022/11/11 07:30 質問者: さわ子

ベストアンサー

5

0
該当セルの値を別ブックのシート名と一緒であればコピーしてほしい

コードをご教示ください。Aと言う名前のブックに31シートあります。シートは1から31まで名前がついています。このシートのF1に文字が入っております。例えば"あ"だとします。 Bブックには"あ""い"などのシート名であ〜おまであります。もし、Aというブックの、シート2ページ目のF1に、"あ"と文字が入っていたら、Bブックの"あ"のシートから、c4からj147の範囲をコピーして、Aの該当シートに貼り付けしたいのです。どなたかコードご教示ください。

質問日時: 2022/11/10 20:12 質問者: pipipipipipipiaji

解決済

1

0
VBAについて教えてください

初心者過ぎて大変恐縮です。エクセルファイルのVBAについて教えてください。表に入力をしたら→セルの色が変わる（条件付き設定で設定）→その後入力済みのセルはほかの人は再入力できなくする方法を探しています。 ★その範囲としてはB3からD16までとします。 ★ネットでVBAの再入力できなくコードを見たのですが、これでは最初から引っかかって黄色の矢印と黄色で色付けされてしまいました。 Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer, C As Integer R = Target.Row C = Target.Column If Cells(R, C) = “” Then Exit Sub ActiveSheet.Unprotect ‘保護解除 Cells(R, C).Locked = True ‘ロック ‘追加あればここに記述 ActiveSheet.Protect ‘保護 End Sub どうかお知恵を頂けますでしょうか。よろしくお願いいたします。

質問日時: 2022/11/10 12:44 質問者: takogasuki

解決済

4

0
ExcelのVBAでをA列に第0〜19項のフィボナッチ数列を代入するプログラムを作りたいです。どな

ExcelのVBAでをA列に第0〜19項のフィボナッチ数列を代入するプログラムを作りたいです。　どなたか、この続きを教えて下さい。

質問日時: 2022/11/10 10:26 質問者: Tjdi

解決済

2

0
テキストボックスで入力

テキストボックスに入力した数字、例（50）をドル単位と小数点以下（＄50.00）転記させたいのですがどのようなコードにすれば可能でしょうか？ Cells(i, 8).Value = Me.TextBox3

質問日時: 2022/11/09 17:00 質問者: ka-.-ji

ベストアンサー

9

0
VSコードでバックスペースキーが効かない（パイソン）

どうしたわけか　ＶＳコードでバックスペースキーが効かなくなった（ＶＳコードのソフト内だけで、通常はできる）。余計な拡張機能がじゃましているのかなあと思って削除もしてみたが駄目だった。アナコンダもＶＳコードも両方ダウンロードしたが・・・。いろいろ原因を探ってやってみたが　同じだ　ＶＳコードいったん削除して再度ダウンロードしても同じ　他にあるサイトで（https://qiita.com/yusa0827/items/cafbc8be9ecafe603572）修正を試そうとしたが　ここでいう　Visual Studio 2019 に相当する　以下の例画面は　いまのVisual Studioではどこからその修正　リセット　画面に入っていけばいいのかわからない。例「メニューの[ツール]→[オプション]を選択オプション内の[環境]を選択次の追加キーボードマップスキームを適応の[リセット]をクリック実行しますか？　という問いに[はい]を選択とあるが　　・・・・からキーボード　リセット　」などへ

質問日時: 2022/11/09 04:00 質問者: norakurotodoroki

解決済

1

0

【プログラミング・Web制作】に関するカテゴリ

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

【Visual Basic（VBA）】に関するコラム/記事

弁護士が解説！あなたの声を行政に届ける「パブリックコメント」制度のすべて

社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
釣りと密漁の違いは？知らなかったでは済まされない？事前にできることは？

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
カスハラとクレームの違いは？カスハラの法的責任は？企業がとるべき対応は？

東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。この動きは自治体...