回答数
気になる
-
回答受付中
3
0
-
{ CONTROL Forms.Label.1}が表示されます
ワードでラベルコントロールを貼り付けると、本来ならキャプションが表示されるところ、上記の文字が表示されてしまいます。 どうなっているのでしょうか。
質問日時: 2024/06/29 06:49 質問者: payphone カテゴリ: Visual Basic(VBA)
回答受付中
1
0
-
{ CONTROL Forms.Label.1}が消えない
ワードでいたずらしていたらCaptionの文字と一緒に上記の文字が表示されるようになってしまいました。 どうしたら消えるでしょうか。
質問日時: 2024/06/29 05:40 質問者: payphone カテゴリ: その他(プログラミング・Web制作)
回答受付中
1
0
-
【BAT(バッチ)ファイル】Webページが存在しているか404 not foundかを
【BAT(バッチ)ファイル】Webページが存在しているか404 not foundかを成否で識別出来るBAT(バッチ)ファイルの書き方を教えてください。 http://example.com/0000/1-1.html http://example.com/0001/1-1.html 〜 http://example.com/9999/1-1.html 0000ディレクトリから9999ディレクトリまでアクセスして1-1.htmlが存在しているか一括で自動化して調べて出力する方法を教えてください。 OSはAndroidまたはWindows10です。
質問日時: 2024/06/28 20:01 質問者: redminote11pro5G カテゴリ: XML
ベストアンサー
2
0
-
マクロの記録を使用したマクロの実行について
当方、マクロ・VBA初心者です。 マクロの記録を利用し、マクロの作成を行いました。 既にデータが入力されているセルに対して、 ・行の追加 ・列の追加 ・セルの結合 を行うマクロの記録を行い、別シートにも同様の作業を反映させようとしたのですが、 マクロを実行したところ、データが入力されているセルに対しては作業が反映されず、 新規列・行が追加され、追加されたセルに対して作業が実行されました。 マクロの記録を行ったシートと、作業を反映させたいシートは同様の構成となります。 こちら、別シートの既存セルに対して作業を実行するにはどのようにしたらよいでしょうか。 ご教示いただければ幸いです。 ▼マクロの記録で作成されたマクロ Sub Macro1() ' ' Macro1 Macro ' ' Columns("I:K").Select Range("I2").Activate Selection.EntireColumn.Hidden = False Columns("I:J").Select Range("I2").Activate Selection.ColumnWidth = 20 Columns("C:C").Select Range("C2").Activate Selection.Insert Shift:=xlToRight Rows("4:4").Select Selection.Insert Shift:=xlDown Rows("6:6").Select Selection.Insert Shift:=xlDown Rows("8:8").Select Selection.Insert Shift:=xlDown Rows("10:10").Select Selection.Insert Shift:=xlDown Rows("12:12").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=6 Rows("14:14").Select Selection.Insert Shift:=xlDown Rows("16:16").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=3 Rows("18:18").Select Range("C18").Activate Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=-27 Rows("3:18").Select Selection.RowHeight = 32 Range("J2:K2").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:A4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With <セル結合の繰り返しのため中略> Selection.Merge Range("T17:T18").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:E18").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""S""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 .TintAndShade = 0.799981688894314 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""D""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""DP""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
質問日時: 2024/06/28 17:20 質問者: chimchim_yumyum カテゴリ: Visual Basic(VBA)
回答受付中
2
0
-
c言語のリダイレクトによる円の描画について
大学の課題で平均寿命、GDP、人口、国名のデータが入っているcsvファイルをリダイレクトで実行して、人口に応じた半径による円の描画がしたいのですが、以下に書いたプログラムでコンパイルは通るのですが結果が出力されません。原因のわかる方いらっしゃいますか?ちなみにrの値を30という風に指定すれば何の問題もなくBMP画像が生成されます。 int main( void ){ int x, y; int offset = 100; int life, GDP, pop; char name[100+1]; BMPnew(); while( scanf( "%d,%d,%d,%100s", &life, &GDP, &pop, name ) != EOF ){ x = GDP/100 + offset; y = BMP_height - (life-50)*20; int v, w; int r=pop; for( v=x-r; v<x+r; v++ ){ for( w=y-r; w<y+r; w++ ){ if( (v-x)*(v-x) + (w-y)*(w-y) < r*r ){ BMPpoint( v, w, 255, 255, 255 ); } } } } BMPsave(); return 0; }
質問日時: 2024/06/28 12:07 質問者: 山田ボールペン カテゴリ: C言語・C++・C#
ベストアンサー
4
0
-
エクセルのVBAコードについて教えてください。
作業ブックのシートに Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 途中省略 If Range("$ER$3").Value = "■" Then Call Accessシート表示 End If End Sub を設定しております。 指定セルに「■」が表示されるとマクロ「Accessシート表示」が実行されるのですが、 作業の中で、マクロ「Accessシート非表示」を実行して「シート名:Access」を非表示にした後、 同じシートの指定セル以外のセルを変更した場合にもマクロ「Accessシート表示 」が実行されてAccessシート表示が表示されてしまいます。 マクロ「Accessシート非表示」を変更して、一度、シート名:Accessを非表示にした後は、手動で表示にしない限り、このシートを非表示出来る方法があれば教えてください。 現状のマクロ Sub Accessシート非表示() Worksheets("Access").Visible = False End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/06/28 11:33 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
6
0
-
Version Control on Unity
<Unity でのバージョン管理> // 以上のような日本語タイトルですと、なぜか "不適切な表現が含まれています" という、警告文が表示され投稿できないため、止むを得ず英語でタイトルを書かせていただいております。読みにくくてすみません。 Unity でローカルリポジトリを作成し、バージョン管理をしたいのですが、何か良いの方法はあるでしょうか。クラウドなどに接続する必要なく、オフラインでできる方法が知りたいです。 何かわかる方がいましたら、ご回答いただけると幸いです。
質問日時: 2024/06/27 20:45 質問者: 眠れる森の美男 カテゴリ: その他(プログラミング・Web制作)
回答受付中
1
0
-
VBAでCOPYを繰り返すと、処理が途中でアイドルする原因はなんでしょうか
A列からE列までの5列で約3000行のデータがあります。これらのデータは2つのグループのデータが混在しています。それをグループ毎に振り分ける処理を作成しました。処理は正常に動作したのですが、処理に数分程度かかりました。 そこで50行毎の処理時間をセルに表示させるようにしたところ、700行程度までは数秒で処理できていますが、その後1分程度、処理がアイドルしています。その後また700~800行を数秒で処理し、またアイドルするの繰り返しでした。 解決策は見つけましたが、処理がアイドルする原因は何として考えられるか、教えていただけませんか。これまでこのような現象は経験がなく、気になっています。よろしくお願いいたします。 問題のステートメント Cells(idx, 1).Resize(1, 5).Copy Destination:=Cells(cntA, 7).Resize(1, 5) Application.CutCopyMode = False ' ← この行は、あってもなくても現象は変わらない なおCopyメソッドをやめて、地道に転記してみたら10秒程度で全ての処理が終わりました。 Cells(cntA, 7) = Cells(idx, 1) Cells(cntA, 8) = Cells(idx, 2) Cells(cntA, 9) = Cells(idx, 3) Cells(cntA, 10) = Cells(idx, 4) Cells(cntA, 11) = Cells(idx, 5) Windows10 Office Professional Plus 2019 です。
質問日時: 2024/06/27 13:21 質問者: zap35 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
1
-
vbaにてseleniumを使用したedgeスクレイピング
vbaにて selenium basicを使用して edgeブラウザを操作しようとしています。 vbaからedgeを起動しようとしていますが vbaにて、Selenium.Webdriverをnewする行で、オートメーションエラー('-2146・・・')となります。 ◆下記、手順を実施 1)SeleniumBasic-2.0.9.0インストール 2).net Framework3.5有効化 3)edgedriverダウンロード seleniumのフォルダに上書き *バージョンは使用中のedgeブラウザの バージョンと同じにしてます 4)vba の参照設定追加 Selenium Type Libraryをチェック 5)vbaコード作成と実行 sub Dim driver As Selenium.WebDriver Set driver = new Selenium.WebDriver driver.Start "edge" End Sub ◆実行環境 Windows Home 11 23H2 64bit excel 2003 ◆補足 ・手順4の参照設定画面にて Selenium Type Libraryの場所に表示される ファイル名がselenium32.tlb(selenium64.tlbではない) とあり、気になりますが、変更できませんでした。 seleniumのフォルダにはselenium64.tlbも存在はしています。
質問日時: 2024/06/27 11:09 質問者: ゆu カテゴリ: Visual Basic(VBA)
回答受付中
1
0
-
ウェブマーケターの仕事は最近のGoogleアップデートで減ってますか? ウェブマーケターの友人に聞く
ウェブマーケターの仕事は最近のGoogleアップデートで減ってますか? ウェブマーケターの友人に聞くと対策しなくても企業のサイトが上位にきてくれるので、最近は、seo対策はあまりしないで、コンテンツ増やすのみらしいです。 現状はどうですか?
質問日時: 2024/06/27 09:27 質問者: satosatoplayboy カテゴリ: SEO
回答受付中
1
0
-
VBSでテキストファイルの2行目から最終行までを別のファイルに出力
VBSで既存のテキストファイル(カンマ区切り)の2行目から最終行を 別のテキストファイルへ出力したいです。 よろしくお願いします。
質問日時: 2024/06/25 15:00 質問者: Mehco3 カテゴリ: その他(プログラミング・Web制作)
回答受付中
3
0
-
VBの色を変えるにはどうしたらいいですか?
VBの色を変えるにはどうしたらいいですか?
質問日時: 2024/06/25 12:47 質問者: あっきー126 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
テキストファイルの1行目のみを削除したい
PowerAutomateDesktopからテキストファイルの1行目を削除したいです。 テキストファイル(CSVカンマ区切り)から1行目を削除する方法を教えてください。 PADからの実行で実行可能なスクリプトは以下です。 ・DOSコマンド ・VBScript ・JavaScript ・Python これらであればどれを使用しても大丈夫です。 よろしくお願いします。
質問日時: 2024/06/25 11:54 質問者: Mehco3 カテゴリ: その他(プログラミング・Web制作)
回答受付中
4
1
-
ベストアンサー
3
0
-
テキストファイルのフィールド行のみ削除したい
CSVファイルのフィールド行のみを削除する方法を教えてください。 PADからの実行で実行可能なスクリプトは以下です。 ・DOSコマンド ・VBScript ・JavaScript ・Python これらであればどれを使用しても大丈夫です。 よろしくお願いします。
質問日時: 2024/06/25 11:20 質問者: Mehco3 カテゴリ: Visual Basic(VBA)
回答受付中
2
0
-
CPUが16bitでも32bitOSでコンパイルしたコード(例えばintが4バイトと定義されている)
CPUが16bitでも32bitOSでコンパイルしたコード(例えばintが4バイトと定義されている)も問題なく動作するのですか? int型のサイズはCPUではなく、OSとコンパイラによって決まりますという人がいて気になります。
質問日時: 2024/06/25 08:08 質問者: だいぬ カテゴリ: C言語・C++・C#
ベストアンサー
7
0
-
プログラミングでArduinoのc++かc#を言葉から自動でソースコードを作ってくれる優秀なものはあ
プログラミングでArduinoのc++かc#を言葉から自動でソースコードを作ってくれる優秀なものはありますか? なんでも構いません!よろしくお願いします。
質問日時: 2024/06/24 20:21 質問者: あっっちー カテゴリ: C言語・C++・C#
回答受付中
2
0
-
下記のリストならno002が含まれてるかどうか判定したい場合、どのようなやり方があるのでしょうか。
下記のリストならno002が含まれてるかどうか判定したい場合、どのようなやり方があるのでしょうか。 List<Entity>array = new ArrayList<>(); Entity entity = new Entity (); entity.setId("ab001") ; entity.setNo("no001") ; array.add(entity) ; Entity entit2 = new Entity (); entity2.setId("ab001") ; entity2.setNo("no002") ; array.add(entity2)
質問日時: 2024/06/24 17:11 質問者: piraniaman カテゴリ: Java
回答受付中
4
0
-
プログラマーです。このDB設計だと絶対後々面倒なことになるぞ...! って思った時ってどうしたらいい
プログラマーです。このDB設計だと絶対後々面倒なことになるぞ...! って思った時ってどうしたらいいですか?上流の方に意見出しても、うーんという感じのリアクションで、自分が折れるしかなさそうです。
質問日時: 2024/06/24 16:07 質問者: だいぬ カテゴリ: C言語・C++・C#
ベストアンサー
5
1
-
Excel(M365) Vlookup/セル反転(VBA)について
・Excel(M365)で、添付ファイルのようなVLOOKUP処理を作りたい(VBAで)のですが、作り方についてお教えいただけませんでしょうか ・具体的に実施したいこととしては、①Sheet1のE列と、Sheet2のC列をマッチングし、Sheet1のJ列の値を、Sheet2のM列へ転記する。その際、Sheet1にデータ重複している場合(例:CCC,DDD)、そのデータの最下行の値を転記する(例:CCC→400、DDD→700)②この重複データについては、アラームのため、該当するSheet2のB~C列を赤くセル反転させる。 ・上記マッチングしない場合は、Sheet2へは特に転記はしない(例:EEE) ・何卒、よろしくお願いします。
質問日時: 2024/06/24 08:11 質問者: mame1216 カテゴリ: Visual Basic(VBA)
回答受付中
1
0
-
chatgpt gptsを作っているのですが、knowledgeにアップしたテキストファイルを参照し
chatgpt gptsを作っているのですが、knowledgeにアップしたテキストファイルを参照して引用してと指示したのですが、勝手に引用文を変えてしまいます。どうにかなりませんか
回答受付中
0
0
-
Excel 範囲指定スクショについて Excelで範囲指定してスクリーンショットする機能がありますが
Excel 範囲指定スクショについて Excelで範囲指定してスクリーンショットする機能がありますが、自動化する方法はありますでしょうか? 流れとしては下記のような順序になります。 スクショ写真を貼り付けるセルを選択 ※ここはまだ手動です。 ↓ 自動:範囲指定のスクショ機能を動作させる ↓ 自動:範囲指定した箇所をスクショ ※指定する範囲は毎回同じです。 ↓ 自動:選択しているセルに貼り付け 文頭に(自動:)とついている文が自動化させたいところです。 分かる方いましたら、ご回答お願いします
質問日時: 2024/06/22 22:07 質問者: ピーマンナッツ カテゴリ: Visual Basic(VBA)
解決済
1
0
-
0 == False はいいけど
True == 1のみならず中身があれば 1 以外の2 とかへたするとnon empty のobj も True とequivalent ってぜったいどこかで読んだ気がするんですけどてもとでかくにんすると全然そんなことないです。 なにとかん違いしたと思いますか?? ぜったいどこかで読みました Python
質問日時: 2024/06/22 20:09 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
3
1
-
プログラム言語について c言語もコードによって機械語に通訳されると知りました。直接機械が通訳しなくて
プログラム言語について c言語もコードによって機械語に通訳されると知りました。直接機械が通訳しなくても良い01コーンパイルの言語を使えば最速に動かせると思います。言語が分からなくてもコーンパイル実行後の言語を表示させて開発したら良いのでは無いのでしょうか?
質問日時: 2024/06/22 09:04 質問者: クラフトマイン カテゴリ: C言語・C++・C#
ベストアンサー
13
1
-
swift言語の最適化 swift最適化を最大限に出来たらcc++よりもだいぶ早く実行出来ますか?s
swift言語の最適化 swift最適化を最大限に出来たらcc++よりもだいぶ早く実行出来ますか?swiftの問題は最適化が足りないとcc++よりも極端に遅くなる気がします。
質問日時: 2024/06/21 23:07 質問者: クラフトマイン カテゴリ: C言語・C++・C#
ベストアンサー
1
0
-
プログラム言語について プログラム言語c c++ java iPhone用言語だけ使ったら性能軽さな
プログラム言語について プログラム言語c c++ java iPhone用言語だけ使ったら性能軽さなど十分な気がします何故他にこれらのコートも適してるサーバーは除く物にこれらの言語を使わないんですか?
質問日時: 2024/06/21 20:54 質問者: クラフトマイン カテゴリ: C言語・C++・C#
ベストアンサー
1
0
-
SEOに関しまして。ネットやモールで自分製品のホームページへのアクセスを増やしたいです。 自分なりに
SEOに関しまして。ネットやモールで自分製品のホームページへのアクセスを増やしたいです。 自分なりに、本を読んだり、調べたのですが、いまいち、わかりません。 自分ではできないと言う事ですか?SEO対策するサイトとかに登録するのですか?お詳しい方、アドバイス宜しくお願いします。無知ですいません。
ベストアンサー
6
0
-
Excelのマクロについて教えてください。
下記のマクロを実行すると 連続して指定マクロが実行されます。 しかし、 マクロ「フォルダコピー新規」を実行した後に「戸建てファイルコピー」を実行すると それぞれ保存先を聞いてきます。 マクロ「戸建てファイルコピー」の場合は保存先を聞いてこず、「フォルダコピー新規」で指定したフォルダ内に保存出来る方法を教えてください。 現状のマクロ Sub 新規引き受け() Call フォルダコピー新規 Call 戸建てファイルコピー End Sub それぞれのマクロ Sub 戸建てファイルコピー() Const FileNewName As String = "総合引き受け(戸建て)" Dim Destinationfolder As Variant With Application.FileDialog(msoFileDialogFolderPicker) .Title = "保存先フォルダを選択してください" .InitialFileName = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" If .Show = False Then Exit Sub Destinationfolder = .SelectedItems(1) End With Dim SourceFile As String Dim Extension As Variant For Each Extension In Array(".xlsm", ".xltm") SourceFile = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)" & Extension Dim DestinationFile As String DestinationFile = Destinationfolder & "\" & FileNewName & Extension On Error Resume Next FileCopy SourceFile, DestinationFile On Error GoTo 0 Next End Sub と Sub 戸建てファイルコピー() Const FileNewName As String = "総合引き受け(戸建て)" Dim Destinationfolder As Variant With Application.FileDialog(msoFileDialogFolderPicker) .Title = "保存先フォルダを選択してください" .InitialFileName = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\" If .Show = False Then Exit Sub Destinationfolder = .SelectedItems(1) End With Dim SourceFile As String Dim Extension As Variant For Each Extension In Array(".xlsm", ".xltm") SourceFile = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\審査用フォルダ\総合引き受け(戸建て)" & Extension Dim DestinationFile As String DestinationFile = Destinationfolder & "\" & FileNewName & Extension On Error Resume Next FileCopy SourceFile, DestinationFile On Error GoTo 0 Next End Sub になります。 宜しくお願い致します。
質問日時: 2024/06/21 09:31 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
プログラミング
おはようございます。 今日もB型事業所に通う私です。 アイスコーヒーを飲んでいます。 最近、エクセルVBAを始めたのですが楽しいです。 プログラミングって楽しいですよね?
質問日時: 2024/06/20 07:01 質問者: ともこん カテゴリ: Visual Basic(VBA)
ベストアンサー
6
0
-
Python、プログラミングについて質問です
Pythonの問題です whileは使わないでかきたいのですが どなたかやり方教えてください for文を利用して隠された単語を当てるゲームを作成してください。 出題する単語リスト:["banana", "orange", "apple", "kiwi"] 条件: ・単語リストからランダムに出題 ・初期状態はすべて"-"で隠された状態にすること ・プレイヤーが挑戦できる回数は、文字数分可能(文字数はlen()でカウントすること) ・単語を当てる際は1文字ずつ受け取る想定でOK ・文字が問題の単語に含まれる場合はどこと一致しているのか表示 ・不正解の場合は、残りの挑戦回数を表示、挑戦回数がゼロになったら正解を表示 ・単語を全て当てた際は、コメントと当てた単語を表示 ・ゲーム終了後は、終了した旨を表示すること(繰り返し処理が終了後に表示) 表示例については以下の実行結果を参考にしてください! 【実行結果】 単語当てゲームへようこそ! 挑戦回数は4回です! 単語: ['_', '_', '_', '_'] 1文字、入力してください: a 不正解!残りの挑戦回数: 3 1文字、入力してください: i 正解!現在の単語: ['_', 'i', '_', 'i'] 1文字、入力してください: k 正解!現在の単語: ['k', 'i', '_', 'i'] 1文字、入力してください: w 正解!現在の単語: ['k', 'i', 'w', 'i'] おめでとう!単語は 'kiwi' でした! ゲーム終了。 単語当てゲームへようこそ! 挑戦回数は4回です! 単語: ['_', '_', '_', '_'] 1文字、入力してください: a 不正解!残りの挑戦回数: 3 1文字、入力してください: z 不正解!残りの挑戦回数: 2 1文字、入力してください: q 不正解!残りの挑戦回数: 1 1文字、入力してください: e 不正解!残りの挑戦回数: 0 残念!正解は 'kiwi' でした。 ゲーム終了。
質問日時: 2024/06/18 23:25 質問者: ぽぽぽい猫 カテゴリ: C言語・C++・C#
ベストアンサー
4
0
-
エクセルVBAコードで教えて下さい!
現在 、 Sub 円楕円1_Click() Dim i As Range Set i = ActiveCell With ActiveSheet.Shapes.AddShape(msoShapeOval, i.Left, i.Top, i.Width, i.Height) .Fill.Visible = False .Line.ForeColor.RGB = RGB(0, 0, 0) End With Set i = Nothing End Sub 上記コードで該当(土日)に〇を付けて編集しています。 このコードを結合したセルにも使えるようにするには、どのようにコードを編集すれば 良いでしょうか? ご教授のほどよろしくお願いいたします。
質問日時: 2024/06/18 17:28 質問者: TAKA0315m カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
VBAコードについて教えてください。
作業ブックのシートに下記のコードを設定しております。 このコードは指定セルに("地番調査", "許可証")のどちらかの文字が表示された場合に 文字が表示された右横のセルに「後日図書の提出をお願いいたします。」 と表示されます。 このコードを変更して 指定セルに不特定な文字が表示された場合に 右横のセルに「後日図書の提出をお願いいたします。」 と表示出来る方法を教えてください。 現状のコード Private Sub Worksheet_Change(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub If Intersect(Target, Range("C26:C31")) Is Nothing Then Exit Sub Dim arr1, arr2 arr1 = Array("地番調査", "許可証") Dim i As Long For i = 0 To UBound(arr1) If Target.Value = arr1(i) Then Target.Offset(, 3).Value = "後日図書の提出をお願いいたします。" Exit Sub End If Next i End Sub 以上です。 宜しくお願い致します。
質問日時: 2024/06/18 13:51 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
Excelのマクロについて教えてください。
下記のマクロはネットで調べたコードを自分用にアレンジした、マクロです。 このマクロを実行すると、マクロ設定ブックと同じフォルダ内にある、別ブックの指定シートの指定セル値を作業ブックにコピぺできます。 しかし、マクロを実行すると、画像のエラーメッセージが表示され、作業ブックのコピー先のシート「受付」に設定しているVBAコード「With Worksheets("審査")」が黄色く変色してしまいます。 このコード全体では Private Sub Worksheet_Change(ByVal Target As Range) Dim tbl As Variant Dim i As Integer Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False tbl = Array("D10", "D11", "E10", "E11", "F10", "F11") With Worksheets("審査") For i = 0 To 5 .Range("C" & 26 + i).Value = Range(tbl(i)).Value If Range(tbl(i)).Value = "" Then .Range("F" & 26 + i).Value = "" Else .Range("F" & 26 + i).Value = "後日図書の提出をお願いいたします。" End If Next i End With 以下省略 End Sub となっており、指定セル値に文字が表示されれば、シート名「審査」の指定セルに「後日図書の提出をお願いいたします。」と表示出来るようになっております。 この問題を解決できる方法を教えてください。 現状のマクロ Sub Macro1() Dim FilePath As String 'ファイルの入っているフォルダをパスを設定 FilePath = ThisWorkbook.Path 'コピー元のブックを開く Workbooks.Open FilePath & "\テスト(提出用).xlsx" 'データをコピー Workbooks("テスト(提出用).xlsx").Worksheets("提出シート").Range("B2:H47").Copy _ Workbooks("総合引き受け(1-1)(知恵袋).xlsm").Worksheets("受付").Range("B2") 'コピー元のブックを閉じる(セーブしない) Workbooks("テスト(提出用).xlsx").Close savechanges:=False End Sub 以上となります。 宜しくお願い致します。
質問日時: 2024/06/18 09:20 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
vba アクティブシートの名前変更について教えてください
いつもお世話になります 今同じシート名の存在を確認して、同じ名前のシート名が有る時は削除してから シートを追加し、名前を変更するステートメントを作成しています File2="WC(品)" For Each ws In Worksheets If ws.Name = FILE2 Then Application.DisplayAlerts = False Worksheets(ws.Name).Delete Application.DisplayAlerts = True Exit For End If Next ws Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = FILE2 既存のシートには前回作った"WC(品)"が有ったのですが シートの有無チェックには掛からずに下記のエラーが発生しました エラー:"この名前は既に使用されています。別の名前を入力してください" エラーが出たときはちょっとびっくりしました。 今はStrConvを使ってエラーを回避させていますがちょっと気に掛かるので教えてください ActiveSheet.Nameは全角と半角の区別は出来ないのでしょうか? 以上、よろしくお願い申しあげます
質問日時: 2024/06/17 12:27 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
chatgpt 4oを使っています。ある文献の一部を参照しようとするとき、資料は合計で5メガ以内です
chatgpt 4oを使っています。ある文献の一部を参照しようとするとき、資料は合計で5メガ以内ですよね。全く足りないのですがどうすればいいですか?
ベストアンサー
1
0
-
【至急!!助けて!】【スマホでサイトを開いた際、縮小表示されなくなりました】
ホームページビルダー16で作成したWEBサイトです。 【スマホでサイトを開いた際、縮小表示されなくなりました】 以前は小さいながらも全体が入るくらいまで縮小され表示されてました。 1年ほど前に、より見やすくできないものかとネットで調べ慣れない記述を加えたりしたのが原因かもしれません。思い出せる範囲で修正し、改めてviewportの記述を加えました。 が改善に至っておりません。 ・各デバイスで表示の際、サイト全体が表示されるようにしたい ・フレームページです ネットで検索し、以下サイトを参考に記述を加えましたが改善できていないようです。 https://www.plan-b.co.jp/blog/seo/53788/#:~:text=initial%2Dscale,-%E3%80%8Cinitial%2Dscale%E3%80%8D&text=%E3%81%93%E3%81%AE%E5%80%A4%E3%82%92%E6%8C%87%E5%AE%9A%E3%81%99%E3%82%8B%E3%81%93%E3%81%A8%E3%81%A7%E3%80%81%E3%83%9A%E3%83%BC%E3%82%B8%E3%81%8C%E6%9C%80%E5%88%9D,%E3%81%99%E3%82%8B%E3%81%93%E3%81%A8%E3%81%8C%E5%8F%AF%E8%83%BD%E3%81%A7%E3%81%99%E3%80%82 <meta name=”viewport” content=”width=device-width,initial-scale=1″> 上記を加える場合、ページ全てに同一に記載が必要か否かもご教授願います。 indexフレームページのソース画像添付します。 宜しくお願い致します。
質問日時: 2024/06/16 17:19 質問者: goahead1101 カテゴリ: HTML・CSS
ベストアンサー
1
0
-
Python... 環境設定 初心者です。ビジネス用?の 有償版anacondaを使えない状況です、
Python... 環境設定 初心者です。ビジネス用?の 有償版anacondaを使えない状況です、私が貸与されたネットワークとパソコンなので Anacondaを許諾されない。現在 Windows 10 ですが もうすぐ windows 11 になります。 Minicondaは理解できていませんがダウンロードできました。 要するに Condaがあり もう少し大きいのがMiniconda 全部があって便利なのがAnaconda そんな風に理解しています 1 有償版 となる状況を避ける目的で、貸与されたパソコン(Windows10)のconda forge とはなんですか。 どのように どうすれば、ダウンロードや使用できるようになりますか。 最終的にやりたいことはライブラリのreflex(Pynecone)などを使ってPython だけで、無償で Web アプリを作ることです。 2 Windows 10の自宅のパソコンにおいてはGoogle ColabでPythonの基礎を勉強し、たまたま 購入した本で説明のあったPyCharmをダウンロードして使い始めました Visual Studio Codeも一応 ダウンロードしました 3 行動をたくさん作って編集していく時にどうしても テキストエディターとしてVisual Studio Code を使った方が良いと 貸与された Windows 10のパソコン環境では、理解しています おそらく正常にダウンロードできたであろう Minicondaと 、Visual Studio Codeビジュアルスタジオコードのパスの設定方法が、よく分かりません教えてください Visual Studio codeの中に拡張機能として Microsoft の Python があります。 これもダウンロードしました。文字の出力などは Visual Studio code上でコマンドが、きちんと走っているようです。 しかし ビジュアルスタジオコード上で 拡張機能としての Microsoft の Python をダウンロードしたことによってプリント出力の文字表示ができているのか、 あるいは Minicondaとバスが通っているからこそ、使えているのか分かりません。そこを教えて欲しいです。パスが通っているのか パスの設定方法も分かりません Visual Studio Codeは日本語環境へ変更 を完了しました 4 Miniconda で Webアプリが使えるReflexライブラリがあるのかどうかも教えてください
質問日時: 2024/06/15 11:25 質問者: pythons5 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
4
0
-
ITパスポートの勉強をしています。 DIMMとはなんですか?簡単に説明していただきたいです。 ネット
ITパスポートの勉強をしています。 DIMMとはなんですか?簡単に説明していただきたいです。 ネットで調べてもよくわかりませんでした…
質問日時: 2024/06/15 08:52 質問者: わての名前はあらん カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
4
0
-
Excelのマクロについて教えてください。
作業ブックに連続して実行できるマクロを設定しております。 Sub 貼り付け総合() Call 提出シートを開く Call 提出シートコピー範囲 Call 貼り付け End Sub このマクロを実行すると画像のエラーが表示されて、 マクロ:「貼り付け」のコードの 「Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats」が黄色く表示されて、上手くマクロが実行できません。 例えば、「Call 提出シートを開く」・「Call 提出シートコピー範囲」のマクロをやめて 手動でコピー元のブックを開き、コピー範囲をマウスで設定して「Ctrl+C」を行い 作業ブック側の「Call 貼り付け」を実行するとコピペが上手く行きます。 問題の解決方法を教えてください。 現状のマクロ Sub 提出シートを開く() On Error Resume Next Dim folderPath As String Dim fileName As String folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*(提出用).xlsx") Do While fileName <> "" Workbooks.Open (folderPath & fileName) fileName = Dir() Loop End Sub Call 提出シートコピー範囲 Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Wb2.Worksheets("提出シート").Range("B1:H47").Copy End Sub Sub 貼り付け() Application.DisplayAlerts = False Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.DisplayAlerts = True Sheets("受付").Range("H60").Copy Sheets("受付").Range("F24").PasteSpecial xlPasteValues Sheets("受付").Range("Q10").Copy Sheets("受付").Range("F12").PasteSpecial xlPasteValues End Sub 以上となります。よろしくお願いいたします。
質問日時: 2024/06/14 16:38 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
1
-
webデザインの勉強で、HTML/CSSから勉強するかPhotoshop/Illustratorかは
webデザインの勉強で、HTML/CSSから勉強するかPhotoshop/Illustratorかは勉強か、どちらを最初にするのがおすすめですか?
解決済
4
1
-
エクセルのマクロについて教えてください。
下記のマクロは別ブックの指定セル値を作業ブックに貼り付け出来るマクロとなっております。 この貼り付けを画像のように「値の貼り付け」「値と数値の書式(A)で 貼り付けが出来る方法を教えてください。 現状のマクロ Sub 貼り付け() Application.DisplayAlerts = False Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.DisplayAlerts = True End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/06/14 12:16 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
c++でテンプレートのコードでわからないことがあります
#include <iostream> template <typename T> T minimum(const T& lhs, const T& rhs) { return lhs < rhs ? lhs : rhs; } int main() { int a=2; int b=3; int i = minimum<int>(a, b); std::cout << i << std::endl; return 0; } において const T& lhs のところで Tにconstと&が修飾されていますがこれはどういう効果があるのでしょうか?
質問日時: 2024/06/14 11:04 質問者: reiman カテゴリ: C言語・C++・C#
ベストアンサー
2
0
-
バッチファイルが保存されている場所のファイル名の変更方法
いつもお世話になります。 Windows10で、バッチファイルが保存されている場所のファイル名をバッチファイルで変更したいのですが、うまくできません。 どのように書けばできますか? フォルダ名の先頭へ「[A_」を追加したいです。 例えば、 D:\ユーザー\ABC\デスクトップ\JAPAN のJAPANへ当該バッチファイルを置いてあれば、 D:\ユーザー\ABC\デスクトップ\A_JAPAN に変更したいです。 とりあえず、現状このような感じで記載していますが、当然ながら動作しません。 ren %~dp0 A_* お手数をおかけしますが、よろしくお願いします。
質問日時: 2024/06/14 09:55 質問者: hinoki24 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
Excelのマクロについて教えてください。
コピー先のマクロ設定作業ブックを「Set Wb1 = Workbooks(1) 'このブック」としており コピー元のブックを「Set Wb2 = Workbooks(2) '別ブック」としております。 現状では、 コピー元のシート名「提出シート」のセル範囲「B1:H47」を手動で B1にセルからH47にセルを合わせて「Ctrl+C]を押してコピー範囲を指定しております。 この作業を コピー先の作業ブック「Set Wb1 = Workbooks(1) 'このブック」にマクロを設定できる方法を教えてください。 一番最初に「Set Wb1 = Workbooks(1) 'このブック」を開き、 次に 「「Set Wb2 = Workbooks(2) '別ブック」 を開いております。 新設にコード共、教えてください。 よろしくお願いいたします。
質問日時: 2024/06/13 15:48 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Excelのマクロについて教えてください。
下記のマクロを実行すると 他のブックの指定範囲を作業ブックの指定範囲にコピペできます。 このマクロだとコピー元のセル値に設定している数式を文字としてコピーしてしまいます、 このコードを変更してコピペした場合に、コピー元のセル値に表示した文字及び数式をコピー先にコピペ出来る方法を教えてください。 現状のマクロ Sub 提出シート貼り付け() Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Wb2.Worksheets("提出シート").Range("B1:H37").Copy Wb1.Worksheets("受付").Range("B1:H37") End Sub 以上です。 よろしくお願いいたします。
質問日時: 2024/06/13 13:39 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Excelのマクロについて教えてください。
下記のマクロを実行するとマクロを設定しているブックと同じフォルダ内にある ファイルを開く事が出来ます。 ファイル名「前青紙.xlsx」この部分をワイルドカードで 「*(提出用).xlsx」に変更する方法を教えてください。 現状のマクロ Sub ブックを開く2() On Error Resume Next Workbooks.Open Filename:=ThisWorkbook.Path & "\前青紙.xlsx" End Sub 以上です。よろしくお願いいたします。
質問日時: 2024/06/13 10:35 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
Excelのマクロについて教えてください。
下記のマクロを実行すると指定のファイルのデーターを 作業ブックの指定シートに貼り付けが出来るようにしております。 作業ブックでこのマクロを実行するとかなりの時間がかかります(20秒程度) この時間を短縮できる方法があれば教えてください。 現状のマクロ Sub データコピペ() Dim expressionRng, destinationRng Dim n 'コピー元のファイルを開く Workbooks.Open ActiveWorkbook.Path & "\" & "FDデータ.xlsx" Set expressionRng = Workbooks("FDデータ.xlsx").Sheets("Sheet1").Range("$A$1:$OZ$12") Set destinationRng = ThisWorkbook.Sheets("FDデータ").Range("$A$1:$B$2") For n = 1 To expressionRng.Rows.Count destinationRng(n, 1).RowHeight = expressionRng(n, 1).RowHeight Next For n = 1 To expressionRng.Columns.Count destinationRng(1, n).ColumnWidth = expressionRng(1, n).ColumnWidth Next expressionRng.Copy destinationRng Workbooks("FDデータ.xlsx").Close Kill ActiveWorkbook.Path & "\" & "FDデータ.xlsx" End Sub よろしくお願いいたします。
質問日時: 2024/06/13 08:57 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
5
0
-
久しぶりのプログラミング
おはようございます。 今日もB型事業所に通う私です。 昨日からエクセルVBAを始めました。 私にとっては久しぶりのプログラミングです。 大学行って、専門学校でプログラマを目指していたので、比較的やりやすいです。 私は当時、C言語を学んでいたのですがそれに比べるとVBAは楽と言うか 始めたばかりなのでわかりませんがやりやすいです。 今、Cをやるとするとコンパイラがないし、かなり忘れています。 VBAはエクセルなので特別なソフトがいらないのでいいです。 普段、エクセルは実用的に表などを作っているので、VBAプログラミングは趣味のような ものです。 プログラミングって楽しいですよね!! やっている方どうですか?
質問日時: 2024/06/13 06:56 質問者: ともこん カテゴリ: Visual Basic(VBA)
ベストアンサー
4
1
-
エクセルVBA
つい先ほど、久しぶりに本を見つけました。 エクセルVBAの本です。 古い本でしたがサンプルファイルはダウンロードしてありました。 私は、プログラミングは正直、C言語とHTMLがある程度出来るのでなんとなくコツはつかみました。 エクセルを最初からVBEで入力し、デバックして実行し、マクロすれば良いのですよね? 詳しい方、教えてください。
質問日時: 2024/06/12 19:38 質問者: ともこん カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
【プログラミング・Web制作】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
タンス預金で旧紙幣を持ち続けるのは大丈夫?タンス預金のメリット・デメリットを紹介
今年7月、約20年ぶりに新紙幣が発行される。紙幣が変わることを改刷というが、この改刷には「タンス預金をあぶり出す目的があるのでは?」という見方をする人もいるという。「教えて!goo」にも「改刷で本当にタンス...
-
投資詐欺の手口や被害に遭わないためのポイント、被害後の対応策を弁護士が解説
新NISAが始まって間もなく半年が経過する。政府の旗振りの元、預貯金大国から脱却し、資産運用立国に向けた滑り出しは順調のようで、それはNISAの利用状況(2023年4月から2024年4月)を見ても明らかだ。 ・NISA口座...
-
メダロット:第247話「Vol.247※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのVBAコードについて教えて...
-
マクロの記録を使用したマクロの実...
-
c言語のリダイレクトによる円の描...
-
{ CONTROL Forms.Label.1}が消えない
-
VBAでCOPYを繰り返すと、処理が途中...
-
{ CONTROL Forms.Label.1}が表示...
-
【BAT(バッチ)ファイル】Webペー...
-
複素関数はどこはあんまりやらなく...
-
1、Rstudioで回帰直線を求めるため...
-
htmlの文字が縦書きになる
-
Version Control on Unity
-
vbaにてseleniumを使用したedgeスク...
-
0 == False はいいけど
-
プログラム言語について c言語もコ...
-
【ExcelVBA】インデックスが有効範...
-
VBSでテキストファイルの2行目から...
-
VBの色を変えるにはどうしたらいい...
-
ユーザーフォームに別シートからデ...
-
テキストファイルの1行目のみを削除...
-
バッチファイルで以下のようなもの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
vba クリップボードクリアについて...
-
ビーリアルのユーザー名を変えたい...
-
AIの登場でプログラマーたちが解雇...
-
Linux Cプログラミングを学ぶための...
-
onedrive にexcelファイルをアップ...
-
エクセルで集計したい。
-
VBAで大量のファイルをシート名ごと...
-
右ビットシフト
-
XMLを作成してもタグしか表示されない
-
プログラミングについて。 1つのル...
-
プログラミングのPythonのnotebook...
-
エクセルに張り付けた写真のファイ...
-
応用情報技術者試験の令和元年秋、...
-
ImageMagickでgif画像の一部が切れ...
-
過剰なオブジェクト指向脳からの脱...
-
プログラム言語について。
-
VBAでパワーシェルを実行したいので...
-
配列にnullを代入すると、nullが文...
-
VBA レジストリの値の読み方につい...
おすすめ情報