プログラミング・Web制作(16ページ目)

パソコンやゲームが好きで自分でプログラミングをしている・したいという方は少なくないと思います。プログラミングをする際の言語は何を使用したらよいか、自分の能力でどこまでプログラミングできるか等、参考になるような回答が集まっています。

回答数

気になる

VBAの質問になります行の非表示

あまり見ない行の非表示設定ができればと思います B列に日付はあります、その日付から２週間以前を自動で（エクセルを開いたら）非表示にしたいです１行目は項目がありますので表示のままが良いですどこにどのようなコードで動くようになりますでしょうか？

質問日時: 2024/03/16 00:53 質問者: maniac カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
var exports = exports || {}; ← この意味を教えてください。

Google Apps Scriptの勉強をしている者です。やっと何とかわかってきたところというレベルです。どうしてもわからないことがあって、教えてもらったものの中で以下のような記述がfunction main()の前(上？)にありました。読み解こうと調べてみたのですが、まったくわかりません。今までかなりGASをネット検索してきましたが、このような記述は見た記憶もありません。わかる方は教えていただけますでしょうか。もしくはこのサイトを見たら、説明があるというのでもかまいません。ちなみにfunction main()はスプレッドシートからGmailを送信するという内容です。 // Compiled using ts2gas 3.4.4 (TypeScript 3.5.3) var exports = exports || {}; var module = module || { exports: exports }; "use strict";

質問日時: 2024/03/15 21:55 質問者: cul-de-sac カテゴリ: JavaScript

ベストアンサー

7

1
ExcelVBA シート名を複数セルから取得して変更

VBA超ビギナーです。シート名をセルから取得して変更するVBAをご教授願えませんでしょうか...。 ①シート名「シート名変更」「日付変更」以外の全てのシートのシート名を変更 ②値はシート「シート名変更」のA2〜A16から取得

質問日時: 2024/03/15 16:08 質問者: kkkkk_99 カテゴリ: Visual Basic（VBA）

ベストアンサー

6

1
ExcelのVBAコードについて教えてください。

作業ブックの作業シートに Private Sub Worksheet_Change(ByVal Target As Range) を設定しています。このコードに下記のコードを追加したいのですが、教えてください。セルC14 　C16　C18にせれぞれプルダウンで選択した文字が表示されます文字は固定文字で「審査」です 3つのセルには必ず1つだけ「審査」が表示されていれば良く例えばC14に「審査」と表示し次に16に「審査」を表示させると最初のC14の「審査」は削除同じく C18に「審査」を表示させると次に表示させたC16の「審査」は削除です例は順番をC14からにしてますが順番は順不同です各セルはセルを結合してますので見た目は縦に3つ並んでますよろしくお願いします。親切にコードを全て教えてください。宜しくお願い致します。

質問日時: 2024/03/15 08:31 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

5

0
Pythonでegrep機能をつかいたい

Pythonでegrep機能をつかいたいと思いまして下記URL https://qiita.com/obb1120/items/ad93bd0033a09c9e86cb を丸々コピーしてみました。結果、list_2.txtの中身が 0002 0004 でしたら、記事通りの理想的な結果になるのですが list_2.txtの中身が 0004 0002 の場合ですと、結果が異なってしまいます。 list_2.txtの中身の順番に関係なく list_1.txtの上から順に出力してくれますコードってありませんでしょうか？

質問日時: 2024/03/14 20:13 質問者: risaghon カテゴリ: オープンソース

ベストアンサー

3

0
VB.netのADOってなんですか?

VB.netのADOってなんですか?

質問日時: 2024/03/14 18:12 質問者: あっきー126 カテゴリ: Visual Basic（VBA）

解決済

3

0
VBA UserFormからの転記で

画像のように一度にまとめて転記はできるのでしょうか？参照は管理№の記載列B列になり、その該当した行の18＝使用日・ 19＝設置または搭載先・20＝登録者・21＝メモになります該当する行にそれぞれ転記したいのですが可能でしょうか？現状このような感じです（中略） 1行だけだと転記できましたが複数になるとダメでした(´;ω;｀) '該当管理№があったらを複数作成すればよいのでしょうか？ If Cells(iCheck, 2).Value = Me.TextBox2.Text Then If Cells(iCheck, 2).Value = Me.TextBox5.Text Then この場合、Exit SubとEnd Ifを書くコードに追加ですかね？ Private Sub CommandButton1_Click() Dim i As Integer Dim iCheck As Integer For i = 2 To 20000 If Cells(i, 2).Value = "" Then Exit For Next '重複チェック iCheck = i For iCheck = 1 To i '該当管理№があったら If Cells(iCheck, 2).Value = Me.TextBox2.Text Then '出荷されてなかったら 'If Cells(iCheck, 23).Value = "" Then '使用日 Cells(iCheck, 18).Value = Me.TextBox1 Cells(iCheck, 18).Value = Me.TextBox1 '使用先/搭載埼 Cells(iCheck, 19).Value = Me.TextBox3 Cells(iCheck, 19).Value = Me.TextBox6 '担当 Cells(iCheck, 20).Value = Me.ComboBox1 Cells(iCheck, 20).Value = Me.ComboBox1 'メモ Cells(iCheck, 21).Value = Me.TextBox4 Cells(iCheck, 21).Value = Me.TextBox7

質問日時: 2024/03/14 14:04 質問者: kacky76 カテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
ExcelのVBAコードについて教えてください。

作業ブックのシートに下記のコードを設定しております。セル「C12」に「審査」と表示されると非表示シート「確認質疑」と「行政回答確認」が表示出来るようになっております。この2つのコードを1つのコードにまとめる方法を教えてください。現状のコード Private Sub Worksheet_Change(ByVal Target As Range) Sheets("確認質疑").Visible = [C12] = "審査" Sheets("行政回答確認").Visible = [C12] = "審査" End Sub 以上となります。宜しくお願い致します。

質問日時: 2024/03/13 09:23 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
XMLとは何ですか?

XMLとは何ですか?

質問日時: 2024/03/13 07:14 質問者: あっきー126 カテゴリ: XML

解決済

3

0
【ExcelVBA】インデックスが有効範囲にありません。の理由が分かりません

下記、VBAソースの一部ですが、やりたい処理は、本体のマクロブックのSheet1のA2セルにフォルダのパスが、 C2、D2セルにセル位置が記載されています。そのフォルダ内のすべてのエクセルを順番に開いて指定シートの指定範囲をコピーしたいのです。各ブックのシート名は異なるのですが、VBAエディタから見たシートの番号はすべて同じなので、シート番号から特定して処理しようと考えました。開いたブックのSheetIDが28のシートに対して、LeftUp(左上)から右下(RightDown)の範囲をコピーしたいのですが、「インデックスが有効範囲にありません。」というエラーでストップしてしまいます。 LeftUp = Cells(2, 3).Value ' C2 RightDown = Cells(2, 4).Value ' D2 buf = Dir(Sheets("Sheet1").Range("A2").Value & "*.xlsm") Workbooks.Open Worksheets("Sheet1").Range("A2").Value & "\" & buf, UpdateLinks:=0 Worksheets(28).Range(LeftUp & ":" & RightDown).Copy 原因を教えて頂けると助かります。

質問日時: 2024/03/13 00:34 質問者: tanapyondai カテゴリ: Visual Basic（VBA）

解決済

3

1
ハッシュテーブル(連想配列)が、キーのリストと値のリストを返すような実装の時、これらの位置が対応関係

ハッシュテーブル(連想配列)が、キーのリストと値のリストを返すような実装の時、これらの位置が対応関係にないことは有り得るのですか？あるとしてどのような事情があるのでしょうか？

質問日時: 2024/03/12 19:11 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

9

1
PDF出力マクロについて。マクロ初心者です。エクセルで、アクティブシートを指定したフォルダに保存す

PDF出力マクロについて。マクロ初心者です。エクセルで、アクティブシートを指定したフォルダに保存するマクロを組んだのですが、ドライブが違う人でも作動するようにするにはどうしたら良いでしょうか？そもそも不可能なのでしょうか。コードは以下になります ……………………………………………………………………… Sub アクティブシートPDF出力() Dim strPath As String strPath = "V\○○○○"(指定フォルダのフルパス) Dim ShName As String ShName = ActiveSheet.Name With ActiveSheet.PageSetup Zoom = False FitToPagesWide = 1 FitToPagesTall = 1 End With If MsgBox(ShName &"シートをPDF形式で出力します。よろしいですか？", vbQuestion + vbYesNo) = vbNo Then MsgBox "中止しました。"Exit Sub End If ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=strPath &"\"&ActiveSheet.Range("B8").Text &"_"&Sheets(ShName).Name &".pdf"End Sub ……………………………………………………………………………… また、無駄な部分や追加した方がいいもの等ありましたらアドバイスいただけたらと思います。

質問日時: 2024/03/11 12:44 質問者: chuntarosa__n カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
Excelで「Ctrl+c」、「Ctrl+ｖ」等をまとめた物

Excelで「Ctrl+c,v」はよく使います。同様に「Ctrl+a」等もあればと思います。まとめて発表されておればそのアドレスを教えてください。

質問日時: 2024/03/11 06:23 質問者: aerio カテゴリ: Visual Basic（VBA）

ベストアンサー

5

0
Javascriptエラーの原因が分からない

Q&A掲示板を作成しております。 Cannot read properties of undefined (reading 'appendChild')というエラーが console に表示されており div.appendChild(child); でエラーが発生しているようですが、旧コードと比べてもどこが問題なのか原因が分かりません。アドバイスお願い致します。 ※サンプルサイト https://www.irasuto.cfbx.jp/%e8%b3%aa%e5%95%8f%e6%8e%b2%e7%a4%ba%e6%9d%bf/ ※該当コード <script> const divTitlePartialParts = document.createElement("div"); divTitlePartialParts.classList.add("title-partial-parts"); child = document.createElement("p"); child.appendChild(document.createTextNode(title_value)); div.appendChild(child); confirm_area.appendChild(div); ※該当ファイル（sample.phpが新コード、bbs_quest_inputが旧コードになります） https://wandbox.org/permlink/Zorsvn7Lx5EaYnzJ

質問日時: 2024/03/10 22:03 質問者: 初心者サイト作成カテゴリ: JavaScript

ベストアンサー

3

0
double型が正常に認識されていない恐れ

double型を用いて実数を計算するプログラムが正常に動かなかったため、 double型を用いてキーボードから入力した実数を表示させるだけの以下のプログラム(#1) (#1) #include <stdio.h> int main(void) { double x; puts("整数を入力せよ:"); printf("x="); scanf("%f", &x); printf("入力した値は%fです", x); return 0; } を実験として作ってみたところ、以下のような結果(#2) (#2)※5.1を入力整数を入力せよ: x=5.1 入力した値は0.000000ですを得ました。どうして出力結果が0.000000になるのでしょうか。お教えいただきたいです。

質問日時: 2024/03/10 21:10 質問者: ITbeginnerkanto カテゴリ: C言語・C++・C#

ベストアンサー

5

1
JavascriptのHTMLクラス表示について

Q&A 掲示板を作成しているのですが、Javascript で HTML を書き換える際の HTML クラス名についてアドバイス頂きたいのですが、クラス名にハイフンかアンダーバーを付けることは可能でしょうか？パターン１かパターン２で parts と title-partial を別クラスとして表示することは出来るようですが、title-partial parts として出力する方法が分からず parts を消すべきか悩んでおります。 SEO を考えて入力画面は title-partial parts として表示しており、非同期通信で切り替えた後のクラスも検索エンジンに乗るのではないかと考えております。パターン1 －－－－ divTitlePartialParts.classList.add("title-partial"); // classの追加 divTitlePartialParts.classList.add("parts"); // classの追加－－－－パターン２－－－－ divTitlePartialParts.classList.add("title-partial", "parts"); // classの追加－－－－  <div id="confirm_area" style="display: block;"> <div class="title-partial parts">  質問タイトルテスト </div> <div class="namae-partial parts">  名前テスト </div> <div class="body-partial parts"> コメントテスト </div> <div class="post-button"> <button type="button">入力画面へ戻る</button><button type="button" name="output">結果画面へ進む</button> </div> </div> </div>  </div> </div>

質問日時: 2024/03/10 19:10 質問者: 初心者サイト作成カテゴリ: JavaScript

ベストアンサー

1

1
VBAコードについて

Sub setData() Dim hitCol As Long Dim i As Long, j As Long Dim errDays() As Long, errCnt As Long '入力データチェック If Not chkData Then End Application.ScreenUpdating = False 'データ登録 With Sheets(strSheet) For i = 1 To 5 If days(i) <> 0 Then Err.Clear hitCol = WorksheetFunction.Match(days(i), .Rows(7), 0) If Err.Number = 0 Then For j = 1 To 27 '組立・行程 .Cells(hitRow + j, hitCol).Value = Cells(j + 9, i * 2 + 2).Value Next j .Cells(hitRow + 30, hitCol).Value = Cells(39, i * 2 + 2).Value '生産数 .Cells(hitRow + 32, hitCol).Value = Cells(40, i * 2 + 2).Value '作業工数 .Cells(hitRow + 33, hitCol).Value = Cells(41, i * 2 + 2).Value 'ケース数 Else errCnt = errCnt + 1 ReDim Preserve errDays(errCnt) errDays(errCnt) = i End If End If Next i End With ThisWorkbook.Save If errCnt = 0 Then Application.ScreenUpdating = True MsgBox "データを[" & strSheet & "]シートにセットしました。", vbInformation Else For i = 1 To errCnt Cells(8, errDays(i) * 2 + 2).Interior.Color = vbYellow Next i Application.ScreenUpdating = True MsgBox "[" & strSheet & "]シートに該当する日が無かったため、データをセットできませんでした。" & vbCrLf & "シートを確認してください。", vbExclamation End If Sheets(strSheet).Activate Application.GoTo Cells(hitRow, "C"), True End Sub のようなコードがあります。セルC19、C20、D30、D31のデータはセットしないようにしたいのですがどうしてもわかりません。教えて頂けないでしょうか。お願い致します。

質問日時: 2024/03/10 12:41 質問者: Chiたんカテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
Selenium4でボタンをクリックできない

こんにちは。 javascriptを使用しているサイトに PythonとSelenium4を使ってボタンを押したいのですがうまく指定できず、困っております。お力を貸していただけると幸いです。ログインすると名前などが表示されるので直接の画像は載せられないのですが上部のメニューをクリックするとその下にもう１つメニューが表示されます。マウスカーソルを当てるとリンク先表示は　javascript:void(0);　となっております 1の部分の要素をコピーしたら<span class="main-menu-word">◯◯</span>と表示され xpathは/html/body/div/div[2]/nav/div[3]/ul/li[2]/a/span 2の目当ての部分の要素は<span class="sub-menu-word">□□□□</span> xpathは/html/body/div/div[2]/nav/div[3]/ul/li[2]/ul/li[3]/a/span ２の目当ての部分をクリックして次のページに進みたいのですがどのような記述をすればクリックすることが出来るのでしょうか？

質問日時: 2024/03/09 16:07 質問者: keiko0122 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

1

0
VBのWPFとはなんでしょうか？

VBのWPFとはなんでしょうか？

質問日時: 2024/03/09 14:47 質問者: あっきー126 カテゴリ: Visual Basic（VBA）

解決済

2

0
VBのMDIとは何ですか?

VBのMDIとは何ですか?

質問日時: 2024/03/09 14:09 質問者: あっきー126 カテゴリ: Visual Basic（VBA）

解決済

2

0
Notepad++の関数リスト表示でC言語のプログラムが正しく表示できない。

C言語のプログラムを作成するエディタとしてNotepad++の使用を検討しています。関数リストを表示すると、余計な行まで表示されてしまいます。対応方法などあればお教えください。例えば、下記のようなプログラムでは、 ------------------------- void functionA() //① { if(functionC()) //② { } catch() //③ { } while() //④ { } } void functionB() //⑤ { } ------------------------- 関数リストの表示では①と⑤のみを表示したいのですが、 ②と③も表示されてしまいます。(④は表示されない。) どなたか対応方法が分かる方がいましたらお助け下さい。一度はあきらめ、別なエディタに乗り換えも考えたのですが、 notepad++他のプログラムで使用しており、その使い方になれてしまっているため、諦めきれず、こちらに投稿させていただきました。よろしくお願いいたします。

質問日時: 2024/03/09 10:38 質問者: GACHAPINA カテゴリ: C言語・C++・C#

ベストアンサー

3

1
ExcelVBAでFormulaR1C1を列範囲指定したい

いつもお世話になっております。 ExcelVBAですが、FormulaR1C1を使いたいのですが、エラーになってしまいます。列で指定したいのですが、どのように記載したらよいのか分かりません。下記の設定!$D:$AA　と　設定!$D:$D　がうまくR1C1で記載できていません。・元のA1タイプの関数 IFERROR(IF(C8="","",INDEX(設定!$D:$AA, MATCH(C8&D8,設定!$D:$D,FALSE),11)*E8),"") ・RIC1(Excel上で確認した関数) IFERROR(IF(RC[-4]="","",INDEX(設定!C4:C27, MATCH(RC[-4]&RC[-3],設定!C4,FALSE),11)*RC[-2]),"") ・VBA上でエラーになるコード Cells(Target.Row, Target.Column).Offset(, 2).FormulaR1C1 = "=IFERROR(IF(RC[-3]="","",INDEX(設定!C4:C31, MATCH(RC[-3]&RC[-2],設定!C4,FALSE),25)*RC[-1]),"")" お手数をおかけしますが、ご教授頂けますと助かります。よろしくお願いいたします。以上

質問日時: 2024/03/08 18:17 質問者: hinoki24 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

0
VBAのコードを教えてください

昨日からVBAを始めた初心者です。どなたか助けて頂けないでしょうか…。 sheet1からsheet5まであるExcelです。バージョンは2021 sheet1に集計シートを作っています。 sheet1のC2からC149まで社員番号があり sheet2からsheet5はA2からA41までそれぞれ社員番号があります。やりたいことは sheet2からsheet5の社員番号が sheet1の社員番号に一致したら sheet2からsheet5のE.F.G.H.I.J列を E.G.I.F.H.J列の順でコピーし sheet1の一致した社員番号のE.F.G.H.I.J列に貼り付けたいです。更にsheet2からsheet5のD列を sheet1のM列に貼り付けたいです。 sheet1は A1:M149の大きさ sheet2からsheet5は A1:J42の大きさセルの結合は無しです。 1行目に項目名がある感じで作っています。文字だけでは伝わりにくいかもしれませんがわかる方、よろしくお願い致します。

質問日時: 2024/03/08 14:15 質問者: いぬ1230 カテゴリ: Visual Basic（VBA）

ベストアンサー

5

0
昔のパソコン少年の武勇伝「店先のパソコンでゲームを作成し、それを売り、その金でパソコンを買う」本当？

パソコンがまだ高根の花で、オフィスでも一部でしか導入されず、個人所有に至っては相当マニアックな人や高偏差値大学の理工系学部の学生しか持っていないような時代の話です。パソコン少年の武勇伝としてこんな話を聞きました。 *** 上記のようなパソコン黎明期、パソコンが金持ちやインテリのホビーとして使われていた時代、秋葉原の電気店やパソコンメーカーのショウルームのパソコン売り場に置いてある ”店頭展示品のパソコン”に毎日のように通いつめ、プログラミングをして、その場でBASIC言語でゲームを作ってしまう少年たちがいた。彼らは作ったゲームのプログラムリストをパソコン店に売り、パソコン店はそれを商品化して自社ソフトとして売っていた。パソコン少年はその対価として小遣い程度の報酬をもらっていた。そういったパソコンゲーム作成少年の中にはそうやって得た報酬を貯めこんで、ついには自分でパソコンを購入する剛の者さえ現れた *** これって本当でしょうか？パソコンホビー黎明期に、自作のゲームプログラムをパソコン雑誌に送って、原稿料や賞金を得た、という話は聞いたことがありますが、「パソコン屋に売って、報酬を得て、　さらにはそれを繰り返して　遂に自分でパソコンを買うまでに至った」という話は聞いたことがありません。こういったプログラマ少年（高専生、大学生なども含む）たちが、ゲームプログラムコンテストで得た賞金でパソコンを買った、という話は聞いたことがありますが、パソコン屋にゲームソフトを売って、その金でパソコンを買うにはいったいどれほどの量のゲームプログラムを作ったことでしょうか？買い取る側のパソコン屋にしても、渡す金はせいぜい数千円だったでしょう（どうせ少年たちだから報酬の多寡を巡って訴訟沙汰になることもないでしょうから、体のいい労働力としてしか見ていなかったでしょうし）この話の真偽を知っている方、ご回答お願いします。

質問日時: 2024/03/07 18:52 質問者: s_end カテゴリ: その他（プログラミング・Web制作）

解決済

9

0
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが

以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが発生します。ネットで解決策を色々と試してみましたが、どうしても実行できません。 VBA初心者です。どなたか、助けて頂けないでしようか？ Option Explicit Sub ガントチャート描画() Dim al As Range Dim org As Range Dim dst As Range For Each al In Range("al7:al29") If al.Value <> "" Then Call MyFind(al.Value, org) Call MyFind(al.Offset(0, 3).Value, dst) If al.Offset(0, 7).Value = "H" Then With ActiveSheet.Shapes.AddLine(org.Left + 0, _ al.Top + 10, dst.Left + 0, al.Top + 10).Line .EndArrowheadStyle = msoArrowheadTriangle .ForeColor.RGB = RGB(250, 8, 8) .Weight = 3 End With ElseIf al.Offset(0, 7).Value = "A" Then With ActiveSheet.Shapes.AddLine(org.Left + 0, _ al.Top + 10, dst.Left + 0, al.Top + 10).Line .EndArrowheadStyle = msoArrowheadTriangle .ForeColor.RGB = RGB(51, 255, 0) .Weight = 3 End With ElseIf al.Offset(0, 7).Value = "K" Then With ActiveSheet.Shapes.AddLine(org.Left + 0, _ al.Top + 10, dst.Left + 0, al.Top + 10).Line .EndArrowheadStyle = msoArrowheadTriangle .ForeColor.RGB = RGB(51, 255, 0) .Weight = 3 End With Else: With ActiveSheet.Shapes.AddLine(org.Left + _ 0, al.Top + 10, dst.Left + 0, al.Top + 10).Line .EndArrowheadStyle = msoArrowheadTriangle .ForeColor.RGB = RGB(0, 0, 128) .Weight = 3 End With End If End If Next End Sub Private Sub MyFind(ByVal src As String, ByRef rng As Range) Dim r As Range Set rng = Nothing For Each r In Range("at5:lu5") If r.Value = src Then Set rng = r Exit Sub End If Next End Sub

質問日時: 2024/03/07 16:21 質問者: かなもゆカテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
【至急】Google reCaptchaについて

至急教えて下さい。 Wordpressにてサイトを作成しております。プラグインでwp Captcha（フリー）を設定しております。 Google　reCaptchaの設定サイトにて誤って対象サイトの設定を削除してしまいました。そのあと、Wordpressのログイン画面からログインしようとするとログインが出来ない状況になり We're sorry, but your IP has been blocked due to too many recent failed login attempts.とIPアドレスがブロックされてしまいました。メールを送れば解除方法がわかるとなっておりましたが、メールを送っても何も来ません。どなたか、助けて頂けないでしょうか？宜しくお願い致します。

質問日時: 2024/03/07 12:06 質問者: ken18khcwu カテゴリ: オープンソース

ベストアンサー

1

0
【ExcelVBA】VBA実行でダイアログメッセージを無視する方法はありますか？

VBAの処理で、フォルダ内のブックを順番に開きながらコピーしていくといった処理をしてるのですが、ブックの中には、他のブックを参照する式が入っていた場合、「更新する」「更新しない」といった問い合わせが表示されてしまい、いちいちクリックする必要があります。全て「更新しない」選択を自動化して中断させない方法はありますか？

質問日時: 2024/03/07 11:23 質問者: tanapyondai カテゴリ: Visual Basic（VBA）

解決済

1

0
rpa化する言語としてら何がありますか?

rpa化する言語としてら何がありますか?

質問日時: 2024/03/07 11:10 質問者: あっきー126 カテゴリ: その他（プログラミング・Web制作）

解決済

2

0
matplotlibで任意の角度の円弧を描きたい

matplotlib.patches.Circle()を使って、任意の角度の円弧を描くことはできますか？例えば、時計回り、または反時計回りにθ=π/2の円弧を描くみたいな事です。

質問日時: 2024/03/07 10:30 質問者: tmiyoshi カテゴリ: その他（プログラミング・Web制作）

解決済

2

0
VBAコードについて教えてください、下記のコードを一つにまとめる方法を教えてくださいセルＦ18に

VBAコードについて教えてください、下記のコードを一つにまとめる方法を教えてくださいセルＦ18に "ﾌﾗｯﾄ設計審査_標準計算" が表示され又はセルＦ18に"ﾌﾗｯﾄ設計審査_仕様基準" が表示されるとマクロ　フラットシート表示が実行出来る方法を教えてください　現状の別々のコードです If Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_標準計算" Then Call フラットシート表示 End If If Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_仕様基準" Then Call フラットシート表示 End If よろしくお願いします

質問日時: 2024/03/06 20:11 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
gccを行ってもexeファイルが生成されない

mingw64をインストールし、コマンドプロンプトにて gcc ensyu1-1.c　 enter を入力しても、エラー文もでず、exeファイルが生成されませんでした。 c:\temp>gcc ensyu1-1.c c:\temp> このように表示され、何も起きません。誤ったコードを入力したファイルの場合はエラーが出ますのでおそらくコンパイル時の問題かと思われます。解決法お教え願えますでしょうか m(..)m

質問日時: 2024/03/06 16:35 質問者: ITbeginnerkanto カテゴリ: C言語・C++・C#

ベストアンサー

2

0
ExcelのVBAコードについて教えてください。

先日来より、ここで質問をさせて頂いておりますが、皆様の回答を頂きましたが、解決に至っておりませんので、改めて質問をさせて頂きます。作業ブックのシート名「審査」に下記のコードを設定しております。このブックを使用する手順として、一番産所にセル「F18」をプルダウン選択し、文字を表示させて、作業を進めておりますが、「F18」に「確認申請」を選択するとその後、コードの内、下記のコードが実行できません。 If Target.Address = "$F$15" Then Call 担当者情報総合 End If If Target.Address = "$D$18" Then Call 審査保存1 End If 「F18」に「確認申請」以外を選択するとシートに設定しているすべてのコードが順調に実行できます。「F18」に「確認申請」を選択すると If Range("$F$18").Value = "確認申請" Then Call 確認シートコピー End If が実行されますが、このコードに問題があるのでしょうか。マクロ「確認シートコピー」は Sub 確認シートコピー() Call 確認用シート表示 Dim i As Integer i = 1 Do While i > 0 i = i + 1 If i > 1 Then Exit Do End If Debug.Print i Loop Sheets("確認申請シート").Select Range("B1:I52").Select Selection.Copy Sheets("質疑").Select Range("B1:I52").Select ActiveSheet.Paste ActiveWindow.SmallScroll Down:=0 Sheets("確認申請シート").Select ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 13 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 16 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 20 Range("AC24:AC52").Select Selection.Copy Sheets("質疑").Select ActiveWindow.SmallScroll ToRight:=21 Range("AC24:AC52").Select ActiveSheet.Paste ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 1 Call 確認用シート非表示 Call F行調整 Range("F15").Select End Sub です。シート名「審査」の全体のコードは Private Sub Worksheet_Change(ByVal Target As Range) If Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_標準計算" Then Call フラットシート表示 End If If Range("$F$18").Value = "ﾌﾗｯﾄ設計審査_仕様基準" Then Call フラットシート表示 End If If Target.Address = "$F$18" Then Call 担当者メッセージ End If If Target.Address = "$F$15" Then Call 担当者情報総合 End If If Range("$F$18").Value = "確認申請" Then Call 確認申請関係シート表示 End If If Range("$F$18").Value = "確認申請" Then Call 確認シートコピー End If If Range("$F$18").Value = "確認申請" Then Call 電子行政選択表示 End If If Range("$F$18").Value = "確認申請" Then Call 行政メッセージ End If If Target.Address = "$D$18" Then Call 審査保存1 End If End Sub 以上となります。「F18」に「確認審査」を表示させても全てのコードが上手く行くように解決できる方法を教えてください。宜しくお願い致します。

質問日時: 2024/03/06 13:07 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
グーグルに自分のドメインががインデックスされているか調べる方法ありますか？？

グーグル広告に電話すると外人の様な人が良くでますが・・・問題はないですか？？

質問日時: 2024/03/06 09:57 質問者: gejigeji1 カテゴリ: SEO

ベストアンサー

1

0
HTMLタグに複数のクラスを設定する方法がわからない

Javascript で HTML クラスを追加するコードを書いているのですが、参照している変数が存在しないとのエラーが発生しており、どのように書くべきか分かりません。アドバイスお願い致します。 <script> var div; var child; // class const divBoardFormPartial = document.createElement("div"); // classの追加 divBoardFormPartial.classList.add("board_form_partial"); // idの追加 divJsBoardFormPartial.id = 'js_board_form_partial_div'; </script>  <div class="board_form_partial" id="js_board_form_partial">

質問日時: 2024/03/05 23:25 質問者: 初心者サイト作成カテゴリ: JavaScript

ベストアンサー

3

0
httpリクエストの送り元の特定

httpリクエストの送り元を、・パソコンかスマホか・プログラムか公式アプリかといったように相手側から特定することはできるんですか？

質問日時: 2024/03/05 19:16 質問者: kenyskey カテゴリ: その他（プログラミング・Web制作）

解決済

2

0
Googleフォームで選択肢に応じて次の質問のプルダウンのListを変更させることは可能でしょうか？

Googleフォームで面談予約の受付フォームを作っています。プルダウンで日付を選択したら、次のプルダウンで日付に応じて面談可能な時間帯のみを表示させるということは可能でしょうか？例えば、最初の質問でプルダウンで以下の日付のどれかを選択してもらいます。 4/08(月) 4/09(火) 4/10(水) 4/11(木) 4/12(金) 4/13(土) もし最初の質問で「4/08(月)」を選んだ場合、次の質問で以下の時間帯から選択しもらう。 10:00～11:00 11:00～12:00 13:00～14:00 14:00～15:00 もし最初の質問で「4/09(火)」を選んだ場合、次の質問で以下の時間帯から選択しもらう。 14:00～15:00 15:00～16:00 16:00～17:00 17:00～18:00 というように、日付によって面談可能な時間が異なるのです。現在は、最初の質問で以下のように日付+時間帯でまとめて選択してもらうようにしています。 4/08(月) 10:00～11:00 4/08(月) 11:00～12:00 4/08(月) 13:00～14:00 4/08(月) 14:00～15:00 4/09(火) 14:00～15:00 4/09(火) 15:00～16:00 4/09(火) 16:00～17:00 4/09(火) 17:00～18:00 今のところ、GASでフォーム提出のトリガーで選択された日付＋時間帯を除いてプルダウンのListItemを更新し、重複して申し込まないようにはできていますが、日付+時間帯にすると80個ほどの選択肢になってしまうので、スマホなどで使いやすいように選択肢を減らす方法を考えています。

質問日時: 2024/03/05 13:57 質問者: cul-de-sac カテゴリ: JavaScript

ベストアンサー

3

1
最新のプログラム言語を学ぶには何がいいですか?

最新のプログラム言語を学ぶには何がいいですか?

質問日時: 2024/03/05 10:12 質問者: あっきー126 カテゴリ: その他（プログラミング・Web制作）

解決済

6

0
ExcelのVBAコードについて教えてください。

作業ブックのシートに下記のコードを設定しております。 If Target.Address = "$F$15" Then Call 担当者情報総合 End If このコードは、セルF15に不特定の文字が表示されるとマクロ「担当者情報総合」が実行されますが、このコードに「指定シート名」を追加できる方法を教えてください。指定シート名は「質疑」としてください。同じく If Range("$F$18").Value = "確認申請" Then Call 確認申請関係シート表示 End If このコードは、セルF18に「確認申請」と文字が表示されるとマクロ「確認申請関係シート表示」が実行されますが、このコードに「指定シート名」を追加できる方法を教えてください。指定シート名は「質疑」としてください。以上となります。宜しくお願い致します。

質問日時: 2024/03/05 09:03 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

4

1
質問失礼します。プログラム言語を一つも知らないのですが、C♯の勉強をしてみたいです。おすすめの教材

質問失礼します。プログラム言語を一つも知らないのですが、C♯の勉強をしてみたいです。おすすめの教材とかありますか？是非教えていただけないでしょうか。

質問日時: 2024/03/05 07:53 質問者: taminakatu カテゴリ: C言語・C++・C#

ベストアンサー

3

0
エクセルVBAの配列について

VBA初心者です。ワークシートのリストを配列に取り込むに当たって特定の列を一挙に取り込むにはどうすれは良いでしょうか。 Array_data（,3)=range(cells(1,7),range(cells(rows.count,7).end(xlup).row,7) とか Array_data.columns(3)＝range(cells(1,7),range(cells(rows.count,7).end(xlup).row,7) を試してみたのですがうまくいきません。よろしくお願いします。

質問日時: 2024/03/04 16:21 質問者: eHiro401 カテゴリ: Visual Basic（VBA）

解決済

1

0
初心者powershellのPS1ファイルの読み込みでエラーがでる。

長いパスを　G:\マイドライブ\..\ActualPerformanceのように表示するスクリプトをPS1ファイルにコーディングして作ったのですが、VisualStudioCodeのpowershellで以下のエラーがでます。気になるのは、エラーのパスで、PowerShellprofile.ps1となっていますが、PowerShell\profile.ps1が正しいです。どうしたら治せるのでしょうか？アドバイスお願いします。 C:\Users\XXXXXX\Documents\PowerShellprofile.ps1: The term 'C:\Users\XXXXXX\Documents\PowerShellprofile.ps1' is not recognized as a name of a cmdlet, function, script file, or executable program. Check the spelling of the name, or if a path was included, verify that the path is correct and try again 念のため、スクリプト内容 function prompt { $path = (Get-Location).Path -split '\\' $pathLength = $path.Length if ($pathLength -le 3) { $path -join '\' } elseif ($pathLength -ge 4) { $shortenedPath = $path[0], $path[1], '..', $path[-1] $shortenedPath -join '\' } else { "Error: Unable to process path for display" } "PS $($shortenedPath -join '\')>" }

質問日時: 2024/03/04 11:42 質問者: denpataro カテゴリ: その他（プログラミング・Web制作）

解決済

1

0
chatGPTで次々と質問をしていくコード

chatGPTで次々と質問をしていき、最後にはhtmlをダウンロードするという、コンソールで実行できるコードを知りたいです。例：（質問）東京の天気は？（chatGPT）晴れです。＜回答が終わったら、すぐ自動で次の質問へ＞（質問）大阪の天気は？（chatGPT）雨です。＜回答が終わったら、すぐ自動で次の質問へ＞（質問）名古屋の天気は？（chatGPT）晴れです。＜回答が終わったら、すぐ自動で次の質問へ＞（質問）北海道の天気は？（chatGPT）雪です。＜設定した全部の質問の回答が終わったら、htmlを自動ダウンロード＞という風な流れにしたいです。（すぐ自動で、としましたが、３秒だけ余裕を持たせてとかの方がいいのかもしれないです）これをchatGPTに質問して、コードを書いてもらっても、この通りに動くコードを書いてもらえません、上記のようなことができるコードはどのようなものでしょうか？実際に書いていただくことは可能ですか？また、chatGPTで書いてもらう場合、どのように質問していけば書いてもらえますか？コンソールで実行できるものと過程してますが、それ以外の何かで実行して、コンソールよりも便利にできるものってありますか？それとも、コンソールでの実行が最も便利でしょうか？よろしくお願いいたします。

質問日時: 2024/03/03 13:09 質問者: hatehatewa カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

13

1
特殊文字の検索方法

テキストエディター(秀丸エディター)を使って <tr> <th>１</th> <th>Date</th> <th>2018/12/01</th> </tr> 上記範囲を正規表現で選択できる書き方を教えて頂きたいです <tr.*/tr> ではNGでした。よろしくおねがいいたします。

質問日時: 2024/03/03 07:33 質問者: UBCD_USER_0025 カテゴリ: XML

解決済

4

0
pythonにてseleniumを使うも、プロファイルを開けず・・・

コードです。 from msedge.selenium_tools import Edge, EdgeOptions options = EdgeOptions() options.add_argument(r'--profile-directory=Profile 2') options.add_argument(r'--lang=jp') path = r'./edgedriver_win64/msedgedriver.exe' driver = Edge(executable_path=path, options=options) driver.get("https://www.google.com") driver.quit() ホームページのURLはデッドリンクではありません。プロファイルを指定しているはずなのですが・・・使えないです。教えてください。

質問日時: 2024/03/02 12:04 質問者: kenyskey カテゴリ: その他（プログラミング・Web制作）

解決済

1

0
エクセルvbaについて

tatsumaru77様以前投稿した内容で転記の追加をしたいのですが、内容は別ファイルへの転記をB列の1行目から添付の内容をお願いします。A列の転記内容はそのままでいいです。 AA0000Z00001* B列にはS列とU列の転記はなしです。それとこのコードだと転記した後に、もう一度転記処理を行うと最初に転記したものが消えてしまいます。一度転記したものは消さずにその下から転記されるようにしたいです。A列B列も同じようにです。自分で変更してみましたが、うまくいきません。申し訳ありませんが、よろしくお願いいたします。 Public Sub 別ファイルへ転記() Dim fpath As String Dim wb As Workbook Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow1 As Long Dim row1 As Long Dim row2 As Long Set ws1 = ActiveSheet fpath = "C:\Users\t-tai\OneDrive\デスクトップ\図番\図番転記.xlsx" Set wb2 = Nothing For Each wb In Workbooks If wb.Name = "図番転記.xlsx" Then Set wb2 = wb Exit For End If Next If wb2 Is Nothing Then Set wb2 = Workbooks.Open(fpath) End If Set ws2 = wb2.Worksheets(1) ws2.Cells.ClearContents row2 = 1 maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row For row1 = 13 To maxrow1 If ws1.Cells(row1, "A").Value = "○" Then ws2.Cells(row2, "A").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _ ws1.Cells(row1, "O").Value & ws1.Cells(row1, "S").Value & ws1.Cells(row1, "U").Value & "*" row2 = row2 + 1 End If Next or row1 = 13 To maxrow1 If ws1.Cells(row1, "A").Value = "○" Then ws2.Cells(row2, "Ｂ").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _ ws1.Cells(row1, "O").Value & "*" row2 = row2 + 1 End If Next End Sub

質問日時: 2024/03/02 01:11 質問者: Wrangleruk カテゴリ: Visual Basic（VBA）

ベストアンサー

6

0
sublimit textっていうエディタ、やたらテキストファイル開くの早いですが、あれより早いテキ

sublimit textっていうエディタ、やたらテキストファイル開くの早いですが、あれより早いテキストエディタ(コードエディタ)ありますか？ Windows11

質問日時: 2024/03/01 21:58 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

2

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

シート名「審査」に下記のコードを設定しておりますが、下記のコードが上手く実行されない原因の解決方法を教えてください。下記のコードは指定セル値の変更により指定マクロが実行されますが、例えば一番最初にセルF15を変更すると上手く指定マクロが実行されます、その後、セルF18を変更した場合は、指定マクロが実行されません、同じくセルD18を変更した場合もマクロが実行されません。違うパターンで最初にF18を変更するとマクロが実行され、その後、F15や　D18を変更してもマクロが実行できません。もう一つ違うパターンで最初にD18を変更するとマクロが実行され、その後、F15やF18を変更するとマクロが実行されません。結論として、F15・F18・D18のどれか一つを変更した後は、残りのセルを変更してもマクロが実行されないのです。解決方法を教えてください。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$15" Then Call 担当者情報総合 End If If Target.Address = "$F$18" Then Call 担当者メッセージ End If If Target.Address = "$D$18" Then Call 審査保存1 End If End Sub 上記のコードは指定セル値に不特定の文字が表示された時に指定マクロが実行出来るようにしてますが、上手く実行できません。その他のコードは上手く実行できます。原因は上手く実行されないコードは不特定の文字の表示上手く実行できるコードは特定の文字の表示にあるのでしょうか？宜しくお願い致します。以上となります。宜しくお願い致します。 Visual Basic | Excel・163閲覧・25

質問日時: 2024/03/01 17:04 質問者: エクセル小僧カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
ワードプレス、Contact Form 7の送信者へにも、確認のメールを送りたいの設定方法

ワードプレス、Contact Form 7の送信者へにも、確認のメールを送りたいの設定方法を教えてください。 Aさんが、私に、メールを送信しました。Aさんにも、確認メールを送りたいのです。詳しい方、教えてください

質問日時: 2024/02/29 16:59 質問者: godhappy カテゴリ: その他（プログラミング・Web制作）

解決済

2

0
Excel関数またはVBAでの質問になります

セル内の文章内で"[説明]"を先頭に空白までを抜粋して別のセルに表示できませんか？ LEFT・MID・RIGHT・FIND関数は試しました =MID(B2,FIND("[説明]",B2),60) =LEFT(B2,60) 表示させる文字数が各セルでまちまちなので指定ができません指定してしまうと他の項目まで表示してしまうためできれば説明文のみが希望ですなので最後の空白または次の[]手前までで〆れば説明文章のみ表示できるかなと思ったのですが(;^_^A ちなみに関数では表示のみですがVBAでは転記できるのでしょうか？ B列に貼り付けたらC列に[説明]から空白までまたは次の[]手前までが転記出来たらありがたいです

質問日時: 2024/02/29 16:06 質問者: kacky76 カテゴリ: Visual Basic（VBA）

解決済

5

1
Bitcoin、BTCはブロックチェーンを改ざんされるらしい？

Bitcoin、BTCはブロックチェーンを改ざんされるらしい？これは本当ですか。もし、今後、BTCのブロックチェーンが改ざんされると、BTCはどうなりますか。それで、BTCの大暴落が起きるとか。

質問日時: 2024/02/29 04:00 質問者: palinz カテゴリ: C言語・C++・C#

ベストアンサー

1

0

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

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

質問する（無料）

【プログラミング・Web制作】に関するコラム/記事

プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた！

プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて！goo」にも、「プログラミングを学べる子供...
弁護士が解説！あなたの声を行政に届ける「パブリックコメント」制度のすべて

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

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

知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...