回答数
気になる
-
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 質問者: ぽんまめ カテゴリ: Visual Basic(VBA)
解決済
3
0
-
javaでDBからデータを取ってきて階層状のjsonファイルにしたい ■コード @AjaxPostM
javaでDBからデータを取ってきて階層状のjsonファイルにしたい ■コード @AjaxPostMapping (value = "XXX"') @ResponseBody public File exportReplication( @ModelAttribute(name = "testSearchCondition", binding =false) MenuSearchCondition searchCondition, HttpServletRequest request) { List<TestSummary> hierarchySummaries = menuSettingsService.findTestHierarchySummariesForReplicate(searchCondition); // test階層を取得 byte[] jsonArchiveData = testSettingsHelper.createReplicateArchiveFile(hierarchySummaries); return testSettingsHelper.createReplicateExportFile(WebUtils.getSessionId (request),jsonArchiveData, ZIP_FILE_NAME); } java側では、上記の「test階層を取得」の部分でデータを取ってきます。 そのデータを以下のjsonに格納できるようにしたいのですが、以下のようにデータが階層状になっている場合、sqlでどのように取ってくれば良いのかわかりません。 また、取ってきたデータを上記のコードでTestSummary型のもの(dto?)に格納しようとしているのですが、この中で private String testCode; のように宣言するものの並びに配列を入れることは可能なのでしょうか。 ■json { "testCheckSum":"XXXXXXXXX", "testTreeCheckSum":"xXxXXXXXXx" "testTrees": [ { "testCode": "001" "testCategories": [ { "testCategoryDetails" : [ { "langCode": "ja", "testCategoryName":“テスト1" }, "langCode": "en", "testCategoryName": "[en]テスト1" } ], "testItems":["a", "b","c", "d"] }, { "testCategoryDetails": [ { "langCode": "ja", "testCategoryName"':“テスト2" }, { "langCode": "en", "testCategoryName": "[en]テスト2" } ], "testItems":["one", "two", "three","four"] } ], ], }, ] }
ベストアンサー
1
0
-
ストリーム 意味について。
以下のURLのベストアンサーの回答で、ストリームの意味と、なぜハードディスクだったら、非常に時間がかかるのでしょうか? それともう一つのURLの関数の所のファイル、メモリ、標準入出力の所を教えて頂けると幸いです。 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q13287740083 もう一つのURLです。 https://zenn.dev/masahiro_toba/books/a7d0c3d685a209/viewer/531675 教えて頂けると幸いです。 すみません。以下の文章で、バッファを使わない時は、プログラムから1文字出力してファイルに書き込むことを繰り返します。書き込み先がハードディスクだったら非常に時間がかかるでしょう。というのは、つまり、プログラムから1文字だけ出力したものをファイルに書き込んで、その1文字だけ出力したファイルをハードディスクにいちいち保存するのでは、非常に時間がかかるという事でしょうか?教えて頂けると幸いです。
質問日時: 2023/10/30 18:17 質問者: メラゾーム カテゴリ: C言語・C++・C#
解決済
4
0
-
javaのDBアクセス(基幹系レベル)の情報が欲しいです。
javaのDBアクセス(基幹系レベル)の情報が欲しいです。 参考書に記載されているれべるのDBアクセス方法ではなく ・トランザクション ・DAO ・シングルトン ・SQLインジェクション ・スレッド ・コネクションプーリング ・セキュリティ 等々様々な考慮がされていると思うのですが その辺が詳しく紹介されている書籍やサイト、こちらでの回答でもいいです とにかく基幹レベルのDBアクセスの考慮事項とそのサンプルコードを見てみたいです。 社外秘になるかもしれないので回答はつかないかもしれないとわかっておりますが どうしても知りたくて投稿させていただきました。
解決済
1
0
-
フロントエンジニアで一人前といわれるレベルの画面
フロントエンジニアで一人前の画面作成とはどの様な画面作成ができたら 一人前と呼べますか? できればサンプル画面のURLを教えてください。 また、その画面を何日ぐらいで作成できてほしいですか ちなみにCSSとかすごい苦手意識があるのですが、何か良い独学方法を教えてください。 ※模写して作ってみるというのはわかっておりますが、他にも良い方法ありましたらお願いします
解決済
1
0
-
疑似クラスは,ある要素が特定の状態にあるときに限定して適用するセレクタである。a要素(リンク)で良く
疑似クラスは,ある要素が特定の状態にあるときに限定して適用するセレクタである。a要素(リンク)で良く使用される。例えば,リンク先をまだ見ていない状態のa要素は,a:( ) と,カーソルが上にある状態のa要素は,a:( ) と指定する。 ( )に入るのは何ですか?教えてくださいお願いしますすいません
質問日時: 2023/10/30 16:46 質問者: Wohinfahrensie カテゴリ: HTML・CSS
ベストアンサー
1
0
-
「IDセレクタ」は,HTMLで特定のタグに ( ) 属性をつけておき,その属性値を使って指定する ↑
「IDセレクタ」は,HTMLで特定のタグに ( ) 属性をつけておき,その属性値を使って指定する ↑( )に入るのは何ですか?教えてくださいお願いします
質問日時: 2023/10/30 16:45 質問者: Wohinfahrensie カテゴリ: HTML・CSS
ベストアンサー
2
0
-
特定の要素だけに適用させることができるセレクタもある。「クラスセレクタ」は,HTMLで特定のタグに
特定の要素だけに適用させることができるセレクタもある。「クラスセレクタ」は,HTMLで特定のタグに ( )属性をつけておき,その属性値を使って指定する ( )の中に入るのは何ですか? 教えてくださいお願いします
質問日時: 2023/10/30 16:41 質問者: Wohinfahrensie カテゴリ: HTML・CSS
ベストアンサー
2
0
-
非同期通信で掲示板を作る際の送信画面はフォームである必要はありますでしょうか?
※Q&A 掲示板の流れについて 入力画面→確認画面→サーバーに送信→コメント、アップロードファイルを表示 WordPressで画面還移なしのファイルアップロード可能な Q&A 掲示板を作成しているのですが設計で悩んでおります。 ファイルアップロード方法が2つあるようでどちらが良いかアドバイス頂きたいです。 セッションを使う場合フォームである必要がなく、入力画面と確認画面をボタンで表示/非表示切り替える形で考えているのですが、全部非同期通信して JavaScript で画面を書きかえる方法でも問題ないのでしょうか? ①入力画面からの送信時にセッションを使う。 ②入力画面からの送信後に一時ファイルに保存する。 ※サンプルサイト http://oksample.starfree.jp/%E8%B3%AA%E5%95%8F%E3%81%99%E3%82%8B/
ベストアンサー
2
0
-
写真のプログラムは、1からnまでの、全整数の積すなわち階乗値を求めて返却する関数を作成したいのですが
写真のプログラムは、1からnまでの、全整数の積すなわち階乗値を求めて返却する関数を作成したいのですが、nの値を6にすると21と出てしまいます。おそらく和だと思うのですが、積に直したいです。どなたか分かる方回答よろしくお願いいたします。添削して、直していただきたいです。
質問日時: 2023/10/29 17:09 質問者: meimo カテゴリ: C言語・C++・C#
解決済
2
0
-
https://paiza.jp/challenges/547/show paizaのc112:時差
https://paiza.jp/challenges/547/show paizaのc112:時差ボケ問題があるんですが、わかりません。 python3で解説をお願いします。
質問日時: 2023/10/29 04:28 質問者: にこてのー カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
C言語関数違いについて。
printf、scanf関数:標準入出力に対して使用 fprintf、fscanf:ファイルに対して使用 sprintf、vsprintf、sscanf:メモリに対して使用 とあるのですが、これらの関数の違いが分かりません。教えて頂けると幸いです。
質問日時: 2023/10/28 21:04 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
39
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 カテゴリ: Visual Basic(VBA)
ベストアンサー
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 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
batファイル、コマンドプロンプトでファイル名の置換
素人で申し訳ございません。 batファイルに、ファイルをドラッグアンドドロップしたら、 ドラッグアンドドロップした、ファイル名の空白スペースを削除する batファイルを作りたいのですが、 教えてもらえないでしょうか。 何卒よろしくお願い申し上げます。
質問日時: 2023/10/27 19:57 質問者: kgyqk433 カテゴリ: その他(プログラミング・Web制作)
解決済
1
1
-
VB.NetでMy.Settingsにセットされている値が空に表示さる
VB.NETでSettingsに3個の値をセットしています。そのうちの1個を確認のためにMsgBoxで表示しましたが、空になっています。 何故でしょうか? Settingsの内容は、プロジェクトのプロパティ、設定タブで確認しています。 原因と対策方法をご教示頂きたくお願いします。
質問日時: 2023/10/27 14:01 質問者: isunsun カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
解決済
8
0
-
FileCopy時のエラー
FileCopy "D:\◆◆.exe", "C:\◆◆.exe" で実行時エラー75 パス名が無効です。とエラーが発生します。 FileCopy "D:\◆◆.exe", "D:\Sample\◆◆.exe"ではエラーが発生しないのでたぶん\C:の部分が管理者権限の問題でエラーになっているのかなって思っています。 このエラーを回避する方法をご教示いただきたくお願いいたします。
質問日時: 2023/10/27 06:24 質問者: 物好きじいちゃん カテゴリ: Visual Basic(VBA)
ベストアンサー
7
0
-
変数名を引数として渡す、アドレスを引数として渡す方法
xを変数名を引数として渡し、yをアドレス引数として渡します。 関数 func_add内で1を加算します。 以下のソースコードで大丈夫ですか。 大略のみ書いており、細かな部分は削除しています。 void func_add(int x, int *y) { x = x + 1; &y = &y + 1; } int main(void) { int x = 1, y = 1; printf("x = %d\n", x); →xに格納されている値を出力する printf("y = %d\n", y); →yに格納されている値を出力する func_add(x, &y); return 0; }
質問日時: 2023/10/26 23:27 質問者: 櫻花道 カテゴリ: C言語・C++・C#
解決済
4
1
-
C言語で、変数名を引数として渡す方法と、アドレスを引数として渡す方法
intで宣言したatai_1を変数名を引数として渡し、 intで宣言したatai_2をアドレスを引数として渡したいです。 ※変数名を引数として渡すというのは「値渡し」と同じですか? 以下のソースコードでよろしいのでしょうか。 ----------------------------------------------------------------- void func_add(atai_1 , *atai_2) そして、関数 func_add内で1.0を加算したいです。 atai_1 に格納されている値に 1.0を加算してatai_1に格納します。 atai_2についても同様の処理をします。 以下のソースコードでよろしいのでしょうか。 ---------------------------------------------------------------- { atai_1 = atai_1 + 1.0; atai_2 = atai_2 + 1.0; }
質問日時: 2023/10/26 21:37 質問者: 櫻花道 カテゴリ: C言語・C++・C#
解決済
3
0
-
ポインタの宣言方法
ポインタで配列を引数として渡し、各要素に1を加算していくプログラムを書きたいのですが、 numを配列の要素数として、 関数の定義 void func_ary_add1(int *ary[ ], int num) ・・・・① { int i; for(i = 0; i < num; i++){ ary[i] = ary[i] + 1; ・・・・② } } ①でaryという名前のintへのポインタとなりますか? ②でaryが示すアドレスを先頭とする配列に1を加算することになりますか?
質問日時: 2023/10/26 20:32 質問者: 櫻花道 カテゴリ: C言語・C++・C#
ベストアンサー
1
1
-
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 カテゴリ: Visual Basic(VBA)
ベストアンサー
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 質問者: 物好きじいちゃん カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
javascriptでbgmを自動再生する方法を教えてください。
<audio preload="auto" controls="controls" autoplay="autoplay" loop="loop" muted="muted"> <source src="bgm.mp3"> </audio> <script> window.addEventListener('DOMContentLoaded', function(){ const audioElement = document.querySelector("audio"); audioElement.addEventListener('loadeddata', (e)=> {audioElement.muted = true; audioElement.autoplay = true; });}); slider_volume.addEventListener('input', (e) => { audioElement.volume = 1.0; }); </script> これで表示されると再生しますがボリュームが0になってしまいます。 どこが間違っているのでしょうか?
質問日時: 2023/10/26 04:40 質問者: kkkkkjjjjj カテゴリ: JavaScript
解決済
3
0
-
text-alignは、行の高さですか?
text-alignは、行の高さですか? HTMLです
質問日時: 2023/10/25 14:49 質問者: Wohinfahrensie カテゴリ: HTML・CSS
ベストアンサー
2
0
-
text-decorationは、行揃えですか?
text-decorationは、行揃えですか?
質問日時: 2023/10/25 14:47 質問者: Wohinfahrensie カテゴリ: HTML・CSS
ベストアンサー
1
0
-
text-indentは、要素全体の透明度ですか?
text-indentは、要素全体の透明度ですか? HTMLです
質問日時: 2023/10/25 14:45 質問者: Wohinfahrensie カテゴリ: HTML・CSS
ベストアンサー
1
0
-
C言語 バッファについて。
stadio.hの中にバッファが定義されていると思うのですが、プログラムにおいて、バッファはどこにあるのでしょうか?教えて頂けると幸いです。
質問日時: 2023/10/25 09:08 質問者: メラゾーム カテゴリ: C言語・C++・C#
解決済
7
0
-
プログラム言語について
今pythonを勉強しているのですが、文字列を入れて出力する、は理解できますが どこにどう出力されるんでしょう? 普通にワードを使って、文字を打つことが可能なのに、あえて、こう言うプログラム言語を使って 規則に従って文字列を入力して言葉を出力する意味ってどこにあるんですか?
解決済
1
0
-
このjavascriptのif文、条件式になっていないですが、どういう意味ですか?
if (element.currentStyle){ ・・・} とか別では if( document.defaultView.getComputedStyle ) { url= document.defaultView.getComputedStyle(document.body null).backgroundImage; } else if( element.currentStyle ) { url= element.currentStyle.backgroundImage; }
質問日時: 2023/10/24 21:44 質問者: denpataro カテゴリ: JavaScript
ベストアンサー
4
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 カテゴリ: Visual Basic(VBA)
解決済
2
1
-
このURLで広告を出しているのはどこの会社ですか?
https://img.lmadps.jp/ というURLで広告を出しているのはどこの会社ですか?
質問日時: 2023/10/24 04:17 質問者: simarisu0812 カテゴリ: その他(プログラミング・Web制作)
解決済
1
1
-
非同期通信を使うタイミングが分からず困っております、アドバイスお願い致します。
WordPressで画面還移なしの掲示板を作成する方法を教えて頂いたのですが、意図が理解できずどのように進めていけばよいかわからず止まっております。 非同期 GET 送信して正常性確認した結果も書く ← こちらは何をすれば良いのでしょうか? ※前回アドバイス頂いた質問 https://oshiete.goo.ne.jp/mypage/history/question/ ※理解できていない内容 → 画面内に、回答の確認フォームを追加 → 入力フォームから確認したい内容を確認フォームに書き込み (ここで非同期 GET 送信して正常性確認した結果も書くと親切) ※最新コード(sample.php が最新コードになります。) https://wandbox.org/permlink/LNuot040YUwMX0dP
ベストアンサー
2
0
-
公文書のxmlファイルの開き方が分かりません
マナポータルからダウンロードしたxmlファイルが開けないのでNETで調べるとGoogle Chromeでも開けると記載があるのですが、ファイルを「プログラムから開く」の一覧にChromeが出てきません。 仕方なくMicrosoft Edgeで試してみましたが文字化けしてしまいます。 出来ればGoogle Chromeで開きたいのですが。 Excelでも開けるらしいのですがこれも互換ソフトのせいか文字化けしてしまいます。 どなたか一番確実に開ける方法を教えてください。
ベストアンサー
2
0
-
Pythonのre.split()の正規表現の使い方
Pythonのre.split()の正規表現を使って、 text = 'you say goodbye and i say hello.' を単語単位に ['you', 'say', 'goodbye', 'and', 'i', 'say', 'hello', '.'] のように分割したいのですが、 どの様に記述すれば良いのでしょうか? 分かる方、ご教示下さい。
質問日時: 2023/10/23 11:32 質問者: tmiyoshi カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
5
0
-
エクセル 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 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Python3.12のインストール方法
https://packaging.python.org/en/latest/tutorials/installing-packages/# マックのノートブックにインストールしたいんですが、どれを選択すればいいのか全くわかりません。 一括でインストールできる様なものはないのでしょうか? どうすればPython3.12をインストールできますか? 最新版は手順書がまだ出ていない模様です。。。
解決済
3
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 カテゴリ: Visual Basic(VBA)
ベストアンサー
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 質問者: ママチャリ カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
バッチファイルについて
いま、バッチファイルについて勉強しています。 コピーコマンド「copy」について、プレースホルダ―「%」を使った動きを確認したかったのですが上手く行かず、ご教授ください。 現在同じ階層(フォルダー)に ・コマンドプロンプト ・test1.txt ・copytest.bat があり、この「copytest.bat」は以下のプログラムにして上手く動作しています。 copy test1.txt new_test1.txt 次に同じ階層に「copytest2.bat」として以下のプログラムを組んだのですが、 copy %1 new%1 コマンドプロンプトで実行すると「指定されたファイルが見つかりません。」と出てしまいます。 気になる点がございましたらご指摘頂けますと幸いです よろしくお願い致します。
質問日時: 2023/10/20 16:08 質問者: Gin-Buck カテゴリ: その他(プログラミング・Web制作)
解決済
2
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 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
WordPressで画面還移なしの掲示板を作成する方法が分かりませんアドバイスお願い致します。
Q&A掲示板を画面還移する形で作成していたのですが、質問画面を作成後の回答画面作成中に入力→確認→サーバーに送信する機能を還移なしで行う形にしたいと考え作り直しております。 回答画面の入力画面の送信ボタンを押した際に入力フォームを非表示にして、確認画面を表示させて非同期通信を行いサーバーに送信させることは可能でしょうか? 入力→確認と確認→サーバーに送信で2度非同期通信が必要になるのではないかと懸念しております。
ベストアンサー
1
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 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
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 カテゴリ: Visual Basic(VBA)
ベストアンサー
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 質問者: りんごプリン カテゴリ: Visual Basic(VBA)
ベストアンサー
6
1
-
<strong>は、重要・緊急・注意・警告ですか?
<strong>は、重要・緊急・注意・警告ですか?
質問日時: 2023/10/18 14:47 質問者: Wohinfahrensie カテゴリ: SEO
ベストアンサー
3
0
-
エクセルのマクロについて教えてください。
作業ブックのシートに番号があり、その番号が該当したフォルダを指定フォルダ内に移動できるマクロを教えてください。 作業ブック名「作業管理(最新).xlsm」のシート名「物件管理」セル値「W5:W54」までに番号があります。(ただし日によっては「W5:W54」のセルにすべて数字が表示はされませんが、始まりは「W5」になります。 この数字が該当するフォルダ名を指定フォルダ内に移動をしたいと思います。 移動元のフォルダ「\\nas-sp01\share\確認部\電子申請 関連\2.審査中\◆未審査物件◆」 移動先のフォルダ「\\nas-sp01\share\確認部\電子申請 関連\2.審査中\北海」 です。 私の希望として、マクロを実行し、 1.移動元のフォルダ内に該当フォルダが無い場合は メッセージボックスに「該当フォルダはありません」と表示され、「OK」をクリックするとマクロ終了 2.移動元のフォルダ内に該当フォルダがある場合はは メッセージボックスに「該当フォルダがありました」と表示され、「OK」をクリックするとフォルダ移動の後、マクロ終了 3.移動元に該当フォルダが多数ある場合も2.としたいです。 例えば セルC2に「12345678-6」表示 移動元のフォルダに「12345678-6_北海 太郎」のフォルダ名のフォルダがあり、 場合が一致した場合は、移動先のフォルダに移動 画像は参考画像となります。 親切にコード共教えてください。 よろしくお願いいたします。
質問日時: 2023/10/18 14:17 質問者: エクセル小僧 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
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 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行して、指定フォルダをワイルドカードを使用したフォルダ内にコピーを出来るように設定しましたが 画像のようなエラーメッセージが出て コードの「FSO.CopyFolder Adr & "\検査時必要図書(正本)", Adr & "\########-#_*\"」が黄色くなっており、上手く実行できません。 解決方法を教えてください。 ワイルドカードを"\########-#_*\"」としており 例えばコピー先のフォルダ名が「12345678-5_北海 太郎」です。 よろしくお願いいたします。 マクロ Sub フォルダコピー正8() '※※フォルダをコピーする※※ Dim FSO As Object Dim Adr As String 'FileSystemObjectオブジェクトを作成 Set FSO = CreateObject("Scripting.FileSystemObject") 'コピー対象のフォルダパスを変数に代入 Adr = ThisWorkbook.Path '「Dataフォルダ」を「Sampleフォルダ」にコピーする FSO.CopyFolder Adr & "\検査時必要図書(正本)", Adr & "\########-#_*\" End Sub です。
質問日時: 2023/10/18 10:16 質問者: エクセル小僧 カテゴリ: Microsoft ASP
ベストアンサー
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 質問者: 洋司 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
【プログラミング・Web制作】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコン
-
これて逆じゃないですか?
-
1、Rstudioで回帰直線を求めるため...
-
あんまり考えたくないけど
-
jQueryでシンセサイザーを作ってい...
-
PHPについて。
-
【ExcelVBA】値を変更しながら連続...
-
C言語について。
-
python3について。
-
時間短縮のために、テキストファイ...
-
C言語について。
-
コンソールアプリを作成するのにお...
-
htmlの文字が縦書きになる
-
C言語について。
-
アンリアルエンジン5に関して、3Dの...
-
Windows10にデュアルブートでXPをイ...
-
PHPからCSVをアップロード後、mysql...
-
vba クリップボードクリアについて...
-
Excel VBA 選択範囲の罫線色の変更...
-
二次元配列を使って順位をだすとき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
エクセルで集計したい。
-
1、Rstudioで回帰直線を求めるため...
-
プログラム言語について c言語もコ...
-
vba クリップボードクリアについて...
-
C#でログファイルにファイルパスが...
-
Python、プログラミングについて質...
-
バッチファイルで以下のようなもの...
-
onedrive にexcelファイルをアップ...
-
VBAなくなるの?
-
テキストファイルの1行目のみを削除...
-
XMLを作成してもタグしか表示されない
-
プログラミングの課題がわからない...
-
バッチファイル 特定ウインドウの最...
-
エクセルに張り付けた写真のファイ...
-
配列にnullを代入すると、nullが文...
-
だれがとけるの?
-
0 == False はいいけど
-
VBAでCOPYを繰り返すと、処理が途中...
-
CPUが16bitでも32bitOSでコンパイル...
おすすめ情報