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

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

回答数

気になる

JAVAのAPIのコールの仕方で質問です。古いやり方ですが、下記URLのWWWGet.javaのや

JAVAのAPIのコールの仕方で質問です。古いやり方ですが、下記URLのWWWGet.javaのやり方でContent-Typeをapplication/jsonでAPIをコールしてます。バイナリデータ（ファイル）も一緒に送りたいのでmultipart/form-dataを追加したプログラムにしたいのですが、どのように作成すれば良いでしょうか。ご存知の方いらっしゃいましたら、ご教示ください。どうか、お助けください。参考となるURLだけでも構いません。 ◾️参考プログラム https://atmarkit.itmedia.co.jp/ait/spv/0407/27/news104.html

質問日時: 2024/02/21 18:21 質問者: piraniaman カテゴリ: Java

解決済

1

0
10行目にフィルターを使用して見出しがあります。列はA:DFで11行目以降（2000行ぐらい）はデー

10行目にフィルターを使用して見出しがあります。列はA:DFで11行目以降（2000行ぐらい）はデータが入っています。AD10行目のフィルターからワイルドカードを使用して※2113※、※20F※、※20C07※以外をVBAを使用して表示させる方法は、ありますでしょうか？宜しくお願い致します。

質問日時: 2024/02/21 16:09 質問者: ほいほい侍カテゴリ: Visual Basic（VBA）

解決済

4

0
Excel VBA マクロあるフォルダー内の複数のファイルを統合したいです

大変お世話になっております。 ●あるフォルダー内の複数のファイルを1つのファイル統合したいです。 1）複数のファイルのファイル名は異なります。 2）複数のファイルの各々のシート名は同一です。 3）複数ファイルの形式は同一です。 4）一つに統合した際に、シート名・形式を保ったままにしたいです。現在は… フォルダー内のファイルを一度各シートにし、その後、統合するVBAを使用しています。統合した際に形式が保てませんし、2度手間になっています…。 ■１■まず…以下を行い Sub フォルダー内のファイルを各シートへまとめる() Dim Filename As String Dim IsBookOpen As Boolean Dim OpenBook As Workbook Dim ShCount As Long With CreateObject("WScript.Shell") .CurrentDirectory = "F:\2024.02.19_複数ファイルを一つにまとめる\新しいフォルダー" 'ここで読み込むフォルダを直接指定するF:\2022.12.01_複数ファイルを一つにまとめる End With Filename = Dir("*.xlsx") Do While Filename <> "" If Filename <> ThisWorkbook.Name Then IsBookOpen = False For Each OpenBook In Workbooks If OpenBook.Name = Filename Then IsBookOpen = True Exit For End If Next If IsBookOpen = False Then ShCount = ThisWorkbook.Worksheets.Count Workbooks.Open (Filename), UpdateLinks:=1 Worksheets.Copy after:=ThisWorkbook.Worksheets(ShCount) Workbooks(Filename).Close savechanges:=False End If End If Filename = Dir() Loop End Sub ■2■次に以下を行い… Sub 複数のシートを1つのシートにまとめる() Dim i As Long Dim R As Long Dim s As Long Dim Sh As Worksheet Dim MaxRow As Long Dim MaxCol As Long Dim MyArray As Variant Dim JoinSh As Worksheet Application.DisplayAlerts = False 'シート削除時のアラート停止 For Each Sh In Worksheets If InStr(Sh.Name, "統合") <> 0 Then Sh.Delete 'すでに統合シートが存在する場合は一旦削除 Next Application.DisplayAlerts = True 'シート削除時のアラート停止を解除 s = 1 '最大行を超えた場合次の統合シートを作成するための番号 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" Set JoinSh = ActiveSheet '統合シートを変数に格納 For i = s + 1 To Worksheets.Count 'シートを統合シートの次～末尾までループ With Worksheets(i) '各月シート If i = 2 Then R = 1 '最初だけ項目も取得 Else R = 2 '最初以外は2行目から取得 End If MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '1列目で最終行を取得 MaxCol = .Cells(1, Columns.Count).End(xlToLeft).Column '1行目で最終列を取得 MyArray = Range(.Cells(R, 1), .Cells(MaxRow, MaxCol)) 'A1～データ末尾まで配列に格納 End With With JoinSh '統合シート MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '統合シートの１列目で最終行取得 If MaxRow + UBound(MyArray) > Rows.Count Then '最大行を超える場合の処理 s = s + 1 '統合シートの番号を加算 Worksheets.Add Before:=Worksheets(s) '新規に統合シートを追加 ActiveSheet.Name = "統合" & s '名前が同じにならないように番号を追加 Set JoinSh = ActiveSheet '統合シートを変数に格納 MaxRow = JoinSh.Cells(Rows.Count, 1).End(xlUp).Row '統合シートの１列目で最終行取得 End If If .Cells(1, 1) = "" Then '最初だけ1行目から貼り付け Range(.Cells(1, 1), .Cells(UBound(MyArray), MaxCol)) = MyArray Else '最初以外は最終行の次に貼り付け Range(.Cells(MaxRow + 1, 1), .Cells(MaxRow + UBound(MyArray), MaxCol)) = MyArray End If End With Next i End Sub ■3■最後に…、手作業で形式をコピーし、統合したファイルにペーストしています。一度で解決するVBAをお教えいただけると本当に有難い限りです…。お手数ですが、ご回答を心よりお待ちしております。大変恐縮ですが、どうぞ宜しくお願い申し上げます。

質問日時: 2024/02/19 21:37 質問者: yuri_7 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
IT業界より楽に稼げる業界ってあるんですか？銀行とか？

IT業界より楽に稼げる業界ってあるんですか？銀行とか？

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

ベストアンサー

12

0
ボタンを押したあとに画像を表示させる方法についてアドバイスお願い致します

ファイルアップロードが可能な Q＆A 掲示板を作成しており入力画面のボタン送信の際に時間がかかる為、確認画面に切り替わるまでローディングアニメーション画像を表示したいと考えております。ボタンの上に重なる形で実装したいのですが、座標を指定する方法以外で画像をボタン上に表示させる方法はありますでしょうか？座標はスマホやタブレットの端末ごとに異なる為、別の方法で考えております。 Ajax を使う方法もあると思うのですが入力画面から確認画面までを非同期通信で行っているため、速度を考えて極力避けたいです。 ※該当コード（bbs_quest_input.php） https://wandbox.org/permlink/hYhRZBA0NG6HbOIw ※ローディングアニメーション https://nagashima.kyusan-u.ac.jp/note/loading-animation/ ※送信が完了するまでローディング https://moshashugyo.com/media/loading

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

ベストアンサー

1

0
VBA ファイル名取得

ネットで調べて下記のVBAでファイル名が取得できるみたいなんですができません。何か間違っているところありますか？いろいろ調べて他のコードも試したのですができません。そもそもガイル名を取得するさいになにか特殊な設定等ありますか？ Sub GetFileName() Dim FileName As String Dim Path As String Dim i As Long ' このファイルがあるフォルダーのパスを取得 Path = ThisWorkbook.Path ' フォルダ内のエクセルファイル名を取得して貼り付ける FileName = Dir(Panh & "\ファイル\" & "*.xlsx") 'ファイル名を各行の初期値を設定 i = 2 '該当するファイルがなくなるまでループ Do While FileName <> "" 'ファイル名をセルに入力 Cells(i, 1) = FileName '次のファイルを取得 FileName = Dir() 'iをカウントアップ i = i + 1 Loop End Sub

質問日時: 2024/02/18 13:24 質問者: ケイ0000 カテゴリ: Visual Basic（VBA）

解決済

3

0
メールの件名をデコードしたい

メールをダウンロードしてテキストで見ると、件名は、例えばこのように表示されます。 Subject: =?ISO-2022-JP?B?GyRCJCpPTSRTJEgkNE8iTW0bKEI=?= これをデコードすると、Subject:お詫びとご連絡になります。(WEBに変換サイトあり) この作業をVBAでできないでしょうか?

質問日時: 2024/02/17 10:53 質問者: Ninjya2436 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
メールの件名のセットでエラーになる原因がわかりません

メールの件名をデコードしようとしていますが、こんな簡単な操作にエラーがでてしまいます。 If Left(LineDATA1, 8) = "Subject:" Then SBJvalue1 = Mid(LineDATA1, 10, 100) End If Cells(rawi, 4) = SBJvalue1　←　ここで、以下のエラーで止まります。実行時エラー1004 アプリケーションの定義エラーまたはオブジェクトの定義エラー何が原因でしょうか?

質問日時: 2024/02/17 09:20 質問者: Ninjya2436 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
ホワイトハッカー

ホワイトハッカーはどのプログラミング言語を使うのが一番いいですか？

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

解決済

7

0
エクセルファイルのデータ転記について

画像の下のエクセルファイル(CSVと記載がありますがエクセルです）のデータを上の転記ファイルに転記させるマクロを作りました。赤の矢印のところに転記させるようにしています。転記ファイルの黄色部の図番、品名、内製価格のデータは下のエクセルファイルにはありません。この3つは現在、前回のデータをコピペしています。例えば上の転記ファイルは下のエクセルファイルのデータを転記させた状態で、この時点では黄色部の部分は空白の状態です。転記ファイルのC列のオ－ダ－NO. AA0000　D列のB00　E列の080　F列の枝番04-00 画像にはありませんが、もっと上のほうに枝番03-00という1個前のデータがあるので、03-00の時のデータをコピーして貼り付けをしています。この作業がなかなか大変なのでこちらも前のデータのものを拾って転記できないかと考えています。考えているのが、AA0000　B00　080という番号を図番のAA0000B000801Bとマッチさせて転記できないかと。画像のファイルだと次にAA0000　B00　080がきた場合枝番は06-00となりますが、図番、品名、内製価格の3つは前回の枝番のものと同じにしたいのです。ややこしいのですが、枝番は数字だけではなくアルファベットの時もあります。AD-00など。その場合前回の枝番はAC-00。このように下へとどんどんデータが追加されていきます。どういうやり方がよいのかは分かりませんが、自分で考えてみたコードだとうまくいきません。コードを貼り付けるので、いい方法があれば教えて頂きたいです。図番、品名、内製価格のところのコードです。分かりやすいように少し間隔を開けています。ちなみに図番、品名、内製価格以外の転記はできています。 Sub 転記() Dim wb As Workbook Dim sh As Worksheet Dim fname As String Dim tbl As Variant Dim r1 As Long, r2 As Long Dim i As Long Application.ScreenUpdating = False Set sh = ActiveSheet With sh r1 = .Cells(Rows.Count, 2).End(xlUp).Row tbl = .Range("C3:K" & r1) End With fname = ThisWorkbook.Path & "\" & "注文.xlsx" Set wb = Workbooks.Open(fname) With wb.Worksheets(1) For r2 = 27 To .Cells(Rows.Count, 1).End(xlUp).Row r1 = r1 + 1 sh.Cells(r1, 2).Value = .Cells(r2, 8).Value '注番転記 sh.Cells(r1, 3).Value = .Cells(r2, 9).Value 'オ－ダ－NO.転記 sh.Cells(r1, 4).Value = .Cells(r2, 10).Value '部門転記 sh.Range(sh.Cells(r1, 5), sh.Cells(r1, 6)).NumberFormatLocal = "@" sh.Cells(r1, 5).Value = Format(.Cells(r2, 11).Value, "000") '製番転記 sh.Cells(r1, 6).Value = Format(.Cells(r2, 12).Value, "00") & "-" & Format(.Cells(r2, 13).Value, "00") '枝番転記 sh.Cells(r1, 9).Value = .Cells(r2, 17).Value '数量転記 sh.Range(sh.Cells(r1, 10), sh.Cells(r1, 11)).NumberFormatLocal = "#,##0" sh.Cells(r1, 10).Value = .Cells(r2, 16).Value '単価転記 sh.Cells(r1, 17).Value = .Cells(r2, 7).Value '発注日転記 sh.Cells(r1, 18).Value = .Cells(r2, 20).Value '納期転記 '図番,品名,内製価格 For i = 1 To UBound(tbl) If .Cells(r2, 9).Value = tbl(i, 1) And .Cells(r2, 10).Value = tbl(i, 2) _ And .Cells(r2, 11).Value = tbl(i, 3) Then sh.Cells(r1, 7).Value = tbl(i, 5) sh.Cells(r1, 8).Value = tbl(i, 6) sh.Cells(r1, 11).Value = tbl(i, 9) Exit For End If Next i 'メーカー Select Case .Cells(r2, 5).Value Case "CHUAN YAO MACHINERY CO.,LTD" sh.Cells(r1, 16).Value = "全曜機械" Case "ZEN MACHINERY CO.,LTD" sh.Cells(r1, 16).Value = "大成ハイテック" Case "MANUFACTURING(THAILAND)" sh.Cells(r1, 16).Value = "HMT" End Select Next r2 End With With sh End With Range("A1:A2000").EntireRow.Delete wb.Save wb.Close 'wb.Close 'Kill fname Application.ScreenUpdating = True End Sub どなたか知恵えを貸して下さい。よろしくお願いします。

質問日時: 2024/02/17 02:10 質問者: Wrangleruk カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
3DCG

中2の13歳で3DCGをはじめるのはおそくないですか？

質問日時: 2024/02/16 21:35 質問者: ._.._.._.._.._. カテゴリ: CGI

解決済

3

0
Powershellとコマンドプロンプト

web制作をしています。windows機でビルドするために、gulpコマンドを使用するのですが、Powershellでは実行ポリシーを変更しなければ、スクリプトを実行できません。コマンドプロンプトでは何もしなくても実行できます。 Powershellで実行ポリシーを変更すると、セキュリティ上危険があることは理解できるのですが、この危険はコマンドプロンプトにはないのでしょうか？デザイナー・コーダーであるため、このあたりの事には全く詳しくありません。 Powershellで毎回「Set-ExecutionPolicy RemoteSigned -Scope Process -Force」と入力するのが面倒なので、コマンドプロンプトを使用すればよいのですが、windows機ではコマンドプロンプトではなく、Powershellに移行していっているということで、気になりました。詳しい方よろしくお願いいたします。

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

解決済

2

0
VBA エクセルで1列で表示したい。

このマクロなんですが、Sent_88310.emlを1列で表示したいのですが、ここにあるように myFields = Split(inRec, ",")　カンマで区切られて、2列になってしまいます1列にしたく、いろいろ、やってみますが、構文エラーになったり、うまく動きません。どんなふうに、修正したらいいのでしょうか? --------------------- Public Sub ReadCSV() 'CSVファイルの読み込み Dim n As Long Dim myFields As Variant Dim inRec As String Dim r As Long Dim c As Long n = FreeFile Open ThisWorkbook.Path & "\Sent_88310.eml" For Input As #n r = 1 Do While Not EOF(n) Line Input #n, inRec myFields = Split(inRec, ",") For c = 0 To UBound(myFields) Cells(r, c + 1).Value = myFields(c) Next c r = r + 1 Loop Close #n End Sub ---------------------------

質問日時: 2024/02/16 20:34 質問者: Ninjya2436 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
HTML入門でもう躓いてしまった。

https://www.tohoho-web.com/wwwbeg1.htm#Display 上記サイトを参考にメモ帳ファイル（ファイル名はtest.html）に下記のコードをコピペした。 <!DOCTYPE html> <html> <head> <title>HTMLの練習</title> </head> <body> 初めてのWebページです。 </body> </html> 保存後、再度test.htmlファイルをダブルクリック。すると、「初めてのWebページです。」とブラウザで表示された。ここまでは順調だったけど、これ以降前に進みません。サイトの説明では、「初めてのWebページです。」という文章を修正してみましょう。メモ帳で、「初めてのWebページです。」を、「私の初めてのWebページです。」に変更してください。と説明してありますが、テキスト変更する画面がありません。「私の」という文字を追加したいですが、どこで追加すればいいですか？　この参考サイトにはそこまで説明していません。全然前に進めなくなってしまった。

質問日時: 2024/02/16 14:19 質問者: hまる子カテゴリ: HTML・CSS

解決済

10

0
サーチコンソールで被リンクを確認、おかしいサイトは、なぜあるのですか？否認していいですか？

サーチコンソールで被リンクを確認しています。リンク先を見ると、まともなサイトもありますが、画面が白いままで待っても表示されなかったロボットでないことを確認するためボタンを押してくださいパスワードを求められたり全然、関係のない海外のサイトだったりサイト内に　リンク自体がなかったりします。なぜ、こういった意味不明のリンクがあるのですか？こういったリンクは、気持ち悪いので否認してもいいでしょうか？すいませんが　教えてもらえないでしょうか？よろしくお願いいたします。

質問日時: 2024/02/15 09:20 質問者: motoentaro カテゴリ: SEO

ベストアンサー

1

0
ものづくりに向いているプログラミング言語ってなんですか？家電にもプログラミングが使われてるとか

ものづくりに向いているプログラミング言語ってなんですか？家電にもプログラミングが使われてるとか

質問日時: 2024/02/14 19:00 質問者: 45450721 カテゴリ: その他（プログラミング・Web制作）

解決済

10

1
VBAで特定のシート以外のシート名を変更したい

VBA超ビギナーです。ネットで調べて、「すべてのシート名を日付に変更する」まではできたのですが、「特定のシート(シート名「シート名変更」)を除外してシート名を変更する」にするにはどこをどう変更すればいいのかわかりません。以下は現在組んでいるコードです。どのように変更すればよいでしょうか？ Sub シート名一括で変える() Dim Ws As Worksheet Dim D As Date '最初の日付 D = Range("D3").Value '全シートをループ For Each Ws In Worksheets 'シート名を変更する Ws.Name = Format(D, "m.d(aaa)") '日数にプラス1をする D = D + 1 Next Ws End Sub

質問日時: 2024/02/14 13:00 質問者: kkkkk_99 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
ホームページにメールフォーム用のcgiを設置したいのですがうまくいきません

windows10ですがan httpdがダウンロードできない、パソコンの様です。代替案はないでしょうか？入門の環境づくりの段階です

質問日時: 2024/02/13 02:59 質問者: gejigeji1 カテゴリ: CGI

解決済

3

0
LeetCodeていうの初めて、

Premiumを購読しようかなって思うんですけどこういうプログラミング勉強サイトってあとでくだらなかったみたいになりますか？いま大学生です

質問日時: 2024/02/12 19:06 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

ベストアンサー

2

0
Outlookの「受信日時」「件名」「本文」などをVBAを使ってExcelに転記したい

Outlookの「受信日時」「件名」「本文」などをVBAを使ってExcelに転記したいのですが、下記のコードですと、古い受信日時から1件しか取得できません。出来れば、「受信トレイ」や「移動」「下書」きなどの取得したいフォルダーを選択し、新しい日付けから、「受信日時」「件名」「本文」を一括で Excelに転記できるVBAコードに設定にして頂けると助かります。よろしくお願いいたします。 VBAコードURL https://writening.net/page?NWK5ZZ

質問日時: 2024/02/11 00:46 質問者: ボアヒロカテゴリ: Visual Basic（VBA）

ベストアンサー

1

1
disabled プロパティが表示されない原因が分からない

Q&A掲示板を作成していて名前とメッセージが送信可能条件を満たしていない場合、ボタンの色を変更させたいと考えております。 disabled プロパティで色の変化を付けており以前は表示されていたのですが、コードを変更したところ表示されなくなってしまいました。アドバイスお願い致します。 ※表示されていたころのコード <div class="post-button"> <button type="submit" id="submit_button" name="mode" value="confirm">表示画面へ進む</button> </div> <script> function validation_submit(f) { const submit = document.getElementById("submit_button"); /* 判定は逆なので、逆に渡す */ submit.disabled = f ? false : true; }; function validation_text(parts) { /* このpartsグループの、inputを抽出 */ let text = parts.getElementsByClassName('input')[0]; /* 最小チェック */ if (text.value.length == 0) { return false; } /* 最大チェック */ if (text.value.length >= text.dataset.length) { return false; } return true; }; /* バリデーション条件判断部分 */ function validation() { let parts = document.getElementsByClassName('parts'); let submit = true; for (let i = 0; i < parts.length; i++) { if (validation_text(parts[i]) != true) { submit = false; } } validation_submit(submit); }; /* 文字数表示 */ document.addEventListener('input', e => { if (!['name', 'message'].includes(e.target.id)) return; const t = e.target, m = t.nextElementSibling, n = t.value.length - (t.dataset.length | 0), c = document.createElement('span'); c.append(Math.abs(n)); m.style.color = n > 0 ? 'red' : 'black'; m.replaceChildren(n > 0 ? '' : '残り', c, `文字${n > 0 ? '超過してい' : '入力でき'}ます。`); /* 毎回判定によるボタン制御 */ validation(); }); /* 初回判定のボタン制御 */ validation(); }; document.addEventListener("DOMContentLoaded", init); </script> ※表示されなくなってしまったコード <div class="post-button"> <button type="button" id="input_button" name="mode" value="confirm">確認画面へ進む</button> </div>  <script> function validation_submit(f) { const submit = document.getElementById("input_button"); /* 判定は逆なので、逆に渡す */ submit.disabled = f ? false : true; }; function validation_text(parts) { /* このpartsグループの、inputを抽出 */ let text = parts.getElementsByClassName('input')[0]; /* 最小チェック */ if (text.value.length == 0) { return false; } /* 最大チェック */ if (text.value.length >= text.dataset.length) { return false; } return true; }; /* バリデーション条件判断部分 */ function validation() { let parts = document.getElementsByClassName('parts'); let submit = true; for (let i = 0; i < parts.length; i++) { if (validation_text(parts[i]) != true) { submit = false; } } validation_submit(submit); }; const init = function () { set_attach_event(); document.getElementById("input_button").addEventListener("click", input_button_click); /* 文字数表示 */ document.addEventListener('input', e => { if (!['name', 'message'].includes(e.target.id)) return; const t = e.target, m = t.nextElementSibling, n = t.value.length - (t.dataset.length | 0), c = document.createElement('span'); c.append(Math.abs(n)); m.style.color = n > 0 ? 'red' : 'black'; m.replaceChildren(n > 0 ? '' : '残り', c, `文字${n > 0 ? '超過してい' : '入力でき'}ます。`); /* 毎回判定によるボタン制御 */ validation(); }); /* 初回判定のボタン制御 */ validation(); };//const init = function () の終了 }; //const set_attach_event = function () の終了 //DOM構築、スタイルシート、画像、サブフレームの読み込みが完了した後に発生する window.addEventListener("DOMContentLoaded", init); </script>

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

ベストアンサー

2

0
マクロについて質問です。セルの内容をクリアするコマンドボタン（AX）を作成しました。指定範囲が

マクロについて質問です。セルの内容をクリアするコマンドボタン（AX）を作成しました。指定範囲が30個までなので、ボタンが全部で4つあります。これを1つにまとめて1度にすべてクリアしたいです。やり方を教えてください。お願いします。

質問日時: 2024/02/10 19:13 質問者: せえちゃんカテゴリ: Visual Basic（VBA）

解決済

1

0
Excel VBAで値を変えながら、pdf出力したい

いつもありがとうございますm(__)m 学生の成績個票をVBAを用いて、印刷しています。（以下のコードです） Sub 正方形長方形1_Click() a = Range("M2") b = Range("O2") For i = a To b Range("B2") = i Worksheets("印刷用１").PrintOut Next i End Sub ------------------------------------------------------------------------- 今度は、学生番号〇番～〇番の成績個票を、pdf出力したいのですが、どのようなコードをかけばいいのでしょうか？ちなみに、ひとつのファイルに出力したいです。お詳しい方、宜しくお願い致します。

質問日時: 2024/02/10 10:46 質問者: mapmap1027 カテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
Chinapost こよパズルどう動かしますか？？タップしても長押ししても動きません。わかる方お

Chinapost こよパズルどう動かしますか？？タップしても長押ししても動きません。わかる方お願いします。

質問日時: 2024/02/09 21:30 質問者: さはこカテゴリ: AJAX

解決済

1

0
MacのPythonでの開発について

MacのPythonでの開発が必要になっています。MacOS、Excel、Webをハンドリングする必要があります。当方、WindowsでのExcel-VBAの経験はありますが、MacやPythonでの開発は初めてです。１）どのようなライブラリを使えばよいでしょうか。２）参考文献、サイト等、ありますでしょうか（GoogleのGeminiに聞きましたが嘘ばかりつかれました）。３）Windows版とMac版で、システムの互換性はどの程度ありますでしょうか。４）気を付ける点はありますでしょうか。以上、よろしくお願い申し上げます。

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

ベストアンサー

3

0
個人ｈｐ外部ページへのリンクで評価渡す

こんにちはｈｐ自作しております。内部リンクは普通に相対パスで、末尾のファイル名だけのリンク設定です。外部リンクは下手にやるとサイトの評価を渡してもったいないといわれたので、修正済みです。サイト内全部検索で外部リンク一覧を出したところ、うちの問い合わせフォームへのリンクが大量に見つかりました(;^_^A たくさんリンク張られているということはその分たくさん評価渡してるんでしょうか？ nofollow設定したほうがいいですかねちなみに問い合わせフォーム自体がもちろん検索で出てこなくても問題ないので問い合わせたい人だけが見れれば。

質問日時: 2024/02/09 12:41 質問者: linkshuu カテゴリ: SEO

解決済

1

0
Webアプリや業務アプリのデータ登録処理について質問です。基本的な流れはユーザー入力バリデーショ

Webアプリや業務アプリのデータ登録処理について質問です。基本的な流れはユーザー入力バリデーション DB更新です。この時ユーザー入力 ↓ バリデーション ↓ DB更新を非同期処理に登録 ↓ バリデーション結果を出力 ↓ 非同期処理終了という流れではダメなのですか？重複チェックなどはバリデーションの際にロックをかけて行うとします

質問日時: 2024/02/09 08:32 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

3

0
国産LLMはなぜオープンにならない？

海外のLLMはオープンになるものが多い気がしますが、国産のLLMはなぜオープン化が進まないのでしょうか？逆になぜ海外のLLMはここまでオープンになるのでしょうか？

質問日時: 2024/02/09 06:33 質問者: remixiii カテゴリ: オープンソース

ベストアンサー

3

1
wordの文書内で上から順番に"有"、"無"などを走査し該当のキーワードがあったら丸で囲む、最終文字

wordの文書内で上から順番に"有"、"無"などを走査し該当のキーワードがあったら丸で囲む、最終文字列まで上から順番にメッセージボックスに任意のキーワードを入れ、既に丸がある所はスキップみたいなことをしたく下記のような形で組んでみたのですが、エラーとなり思ったように処理ができません。コンパイルエラー箇所 Set rng = rng.Find(keyWord, After:=rng.End, LookAt:=wdWhole) 検索などしてみましたが、よく理解できるページも見つけられずです。参考になるサイトやここが悪いというような助言をいただけます幸いです。元のソース Sub AddCircleHighlight() Dim doc As Document Dim rng As Range Dim keyWord As Variant Dim shp As Shape Set doc = ActiveDocument ' "有"と"無"のリスト keyWord = Array("有", "無") For Each keyword In keyWord For Each rng In doc.StoryRanges Do Set rng = rng.Find(keyword, LookAt:=wdWhole) If Not rng Is Nothing Then ' 既に〇が付いている場合はスキップ If InStr(rng.Text, "〇" & keyword & "〇") = 0 Then Set shp = doc.Shapes.AddShape(msoShapeOval, rng.Information(wdHorizontalPositionRelativeToPage), _ rng.Information(wdVerticalPositionRelativeToPage), 15, 15) With shp .Fill.Visible = msoFalse .Line.Weight = 1 .Line.ForeColor.RGB = vbBlack End With rng.Collapse wdCollapseEnd End If Else Exit Do End If Loop Next rng Next keyword End Sub

質問日時: 2024/02/08 16:41 質問者: HS83als カテゴリ: Visual Basic（VBA）

解決済

1

0
えハミルトン路と全域木のちがいって

ハミルトン路はひと筆書きできなきゃいけないっていういみですか？

質問日時: 2024/02/08 10:43 質問者: ゆゆにゃ。カテゴリ: Java

解決済

2

0
トリプトファンってケト原性ありますか

？

質問日時: 2024/02/08 10:20 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

ベストアンサー

2

0
c言語

3次元の計算を行いたいのですが、出力する際に5×5×５の結果を出したいのに5×２５の結果が生じされます。 for (i = 0; i < S; i++) { { for (j = 0; j < S; j++) { for(z=0; z < S; z++) printf("%9.31f ", a[i][j][z]); //結果を表示 { printf("\n"); } } } } おかしな部分がありますか？このやり方で2次元の5×５は表示できたのですが C言語関連・0閲覧

質問日時: 2024/02/07 15:08 質問者: はらたつのり。。カテゴリ: C言語・C++・C#

解決済

5

2
プログラムの素朴な質問です分岐するコードを書く時に、 /** * 関数 */ sub(){ ...

プログラムの素朴な質問です分岐するコードを書く時に、 /** * 関数 */ sub(){ .... } /** *関数を呼び出すフロー */ main(){ ... if(isOk){ sub() } ... } というように書くのと /** * 関数 */ sub( isOk /* 真偽値 */ ){ if(isOk){ .... } } /** *関数を呼び出すフロー */ main(){ ... sub(isOk) ... } と書くのはどちらの方が見やすく使いやすいのでしょうか？オーバーヘッドのことを考えると後者は論外でしょうけども...

質問日時: 2024/02/07 08:15 質問者: だいぬカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

7

0
AI(人口知能)とは

私が勤めている会社で AIで故障率を求める手法を開発したという発表がありました。その内容は、ある顕微鏡画像を読み込み、対象物の占める割合を出し、そこから関数により計算するというものでした。ただの画像解析ソフトとエクセルマクロを組み合わせただけのようなものでした。こんなものでも人工知能といっていいものなのでしょうか？

質問日時: 2024/02/06 22:38 質問者: agency カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

5

1
パソコンのスクリーンセーバーのデザインと時間をバッチファイルで変更したいのですが・・・。

パソコンのスクリーンセーバーのデザインと時間をバッチファイルで変更したいのですが・・・。次のプログラムで実行しましたが時間が変わません。できれば、時間は途中で入力したいです。どなたか、ご教示よろしくお願いいたします。 rem 種類をバブルにする reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v "SCRNSAVE.EXE" /t REG_SZ /d "C:\Windows\System32\Bubbles.scr" /f rem 時間を5分にする reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v "ScreenSaveTimeOut" /t REG_SZ /d 300 /f

質問日時: 2024/02/06 19:13 質問者: sasa51244 カテゴリ: Ruby

ベストアンサー

2

0
c言語

c言語の質問です。３次元の計算を行いたくて初期値を設定したらエラーで配列または、ポインターでない変数に添字が使われました、pointer to object型が必要ですと出ました。何が原因なのでしょうか？ int S, i, j,z; for (i = 0; i < S; i++) { for (j = 0; j < S; j++) { for(z = 0; z < S; z++) { if (i == 0 || i == S - 1) { a[i][j][z] = 300; } else if (j == 0 || j == S - 1) { a[i][j][z] = 300; } else if (z == 0 || z == S - 1) { a[i][j][z]=300; } else { a[i][j][z] = 0; } } } }

質問日時: 2024/02/06 14:17 質問者: はらたつのり。。カテゴリ: C言語・C++・C#

解決済

7

0
Excel VBA マクロシート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです

大変お世話になっております。以下のVBAですと、シート名がA列に入力されている文字と同様になってしまいます。分割する元ファイルのシート名をそのまま残し、A列に入力されている文字にてファイルの名前を付け分割をしたいです。お手数ですが、修正をお願い申し上げます。ご回答をお待ちしております。どうぞ宜しくお願い申し上げます。 Sub MAIN() Dim TName, TX As Long With ThisWorkbook Set ws1 = .Sheets(1) .Sheets.Add after:=ws1 Set ws2 = ActiveSheet End With With ws1 .UsedRange.Columns("A").Copy ws2.Range("A1") End With ws2.Columns("A").RemoveDuplicates Columns:=1, Header:=xlYes '担当名を配列に格納 TName = Application.Intersect(ws2.UsedRange, ws2.UsedRange.Offset(1)).Value Application.DisplayAlerts = False ws2.Delete Set ws2 = Nothing Application.ScreenUpdating = False For TX = LBound(TName) To UBound(TName) Call SheetSPLIT(TName:=TName(TX, 1)) Next End Sub Private Sub SheetSPLIT(ByVal TName As String) Dim Wb2 As Workbook Dim ws2 As Worksheet, RX As Long 'Sheet1を複写→新しいブック ws1.Copy Set Wb2 = ActiveWorkbook Set ws2 = Wb2.Sheets(1) With ws2 .Name = TName If .AutoFilterMode Then .Range("A1").AutoFilter For RX = .Range("A" & .Rows.Count).End(xlUp).Row To 2 Step -1 If .Cells(RX, "A").Value <> TName Then .Rows(RX).Delete End If Next .Range("A1").AutoFilter field:=1 End With Wb2.SaveAs Filename:=ThisWorkbook.Path & "\" & TName & ".xlsX" Wb2.Close Set Wb2 = Nothing End Sub

質問日時: 2024/02/05 22:10 質問者: yuri_7 カテゴリ: Visual Basic（VBA）

ベストアンサー

3

0
outlookの受信日時、本文などをExcelに転記したいのですが・・・

初期設定で、 VBAのツール→参照設定VBAProject→「Runtimescript Library」のライブラリにチェックがないのですが、Windows10 ６４ビット、 Excelのバージョンは、2010年なのですが、「Runtimescript Library」の参照項目はないのでしょうか？ Microsoft Outlook 16.0 Object Libraryは、項目があり、チェックを入れられます。どうぞよろしくお願い致します。

質問日時: 2024/02/05 20:35 質問者: ボアヒロカテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
Outlookの「受信日時」「送信者アドレス」「件名」「本文」の内容をExcelへの取り込み

Outlookの「受信日時」「送信者アドレス」「件名」「本文」の内容をExcelへ VBAで使って取り込みたいのですが、エラーが出てしまいます。設定はOutlookとExcelとも、Microsoft office 16（）object Libraryはチェックが入っております。 VBAの構文が間違っているのでしょうか？お分かりの方、宜しくお願い致します。 Sub GetMail0() Dim oApp As New Outlook.Application Dim oNs As Outlook.Namespace Set oNs = oApp.GetNamespace("MAPI") Dim oF As Folder Set oF = oNs.Folders("自分の@outlook.com").Folders("受信トレイ") Dim mailLists As Items Set mailLists = oF.Items mailLists.Sort "[ReceivedTime]", False Dim i As Long For i = 1 To 3 'mailLists.Count On Error Resume Next Cells(i + 1, "A").Value = mailLists.Item(i).ReceivedTime Cells(i + 1, "B").Value = mailLists.Item(i).SenderEmailAddress Cells(i + 1, "C").Value = mailLists.Item(i).Subject Cells(i + 1, "D").Value = mailLists.Item(i).Body Next i End Sub

質問日時: 2024/02/05 19:05 質問者: ボアヒロカテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
Excelのマクロ（VBA）は、同じソースで、WindowsとMacで動きますか？

表題の件、経験者の方、お教えください。 MacとWindowsのExcelファイルをハンドリングするのには、マクロ（VBA）より、Pythonの方がよいのでしょうか。これから、MacとWindowsで動くものの開発に取り掛かろうと考えております。スクレイピングとも連動させることもありえると思っております。どうぞ、よろしくお願い申し上げます。

質問日時: 2024/02/05 17:59 質問者: hgama1024 カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
VBA 指定した回数分、別シートにコピー

「作業1」シートより M～N列の11行以降が、コピー元。「L10」は、コピー回数。貼付け先が「作業2」シートになります。例で画像を載せました。関数で処理できますか。関数で処理できるのであれば、関数でやりたいです。 VBAの方が簡単であれば、どのように記述すればいいのか、教えてほしいです。大変困っております。どうぞよろしくお願い致します。

質問日時: 2024/02/05 17:38 質問者: mptn カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
二次元配列の中の各行の要素をランダムに並べ替えたいです。

Google Apss Scriptを使ってスプレッドシートで小テスト作成のスクリプトを作ろうとしています。二次元配列で以下のような問題のデータがあります。最後のAnswerの部分の数字(1行目なら3)は選択肢の3番目(1行目ならindividual)が答えというようにできています。 [[Japanese, Choice1, Choice2, Choice3, Choice4, Answer] [個人・個々の, opposite, microscopic, individual, separate, 3.0] [必要な, necessity, necessarily, need, necessary, 4.0]] Choice1～Choice4の選択肢をランダムに並べ替え、同時に答えも書き換えるようにしたいのですが、どうしたらいいでしょうか？例えば、1行目を以下のように変えたいのです。 [1, 個人・個々の, opposite, microscopic, individual, separate, 3] ↓ [1, 個人・個々の, microscopic, individual, opposite, separate, 2] ネットで検索しても、特定の列を基準に行を並べ替える例はたくさんあるのですが、特定の行の列を並べ替えるという例が見つかりませんでした。よろしくお願いいたします。

質問日時: 2024/02/05 08:05 質問者: cul-de-sac カテゴリ: JavaScript

ベストアンサー

3

0
オススメのプログラミングスクールあればお聞きしたいです。・PHPを学べる・ポートフォリオ作成でき

オススメのプログラミングスクールあればお聞きしたいです。・PHPを学べる・ポートフォリオ作成できる・オンラインで週3ぐらいで受けられる・メンターへの質問可能な回数が多いor無制限・スクールの評価がとにかく高い

質問日時: 2024/02/04 18:09 質問者: ていやんでいカテゴリ: PHP

解決済

2

0
MACで動く実行ファイルをWindowsで作る方法（クロスコンパイラ紹介ください）

Cで書かれたWindowsで動くコマンドラインのプログラムがあります。テキストファイルの入出力するだけの簡単なプログラムです MAC用の実行ファイルをWindowsあるいはLinux上で作成（いわゆるクロスコンパイルを実行）したいのですが、具体的な方法、ツールがわかりません。よろしくお願いします

質問日時: 2024/02/03 22:56 質問者: usa3usa カテゴリ: C言語・C++・C#

ベストアンサー

3

0
VBA

Sub CopyDataFromMultipleFolders() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim folderPaths(1 To 2) As String Dim fileName As String Dim filePath As String Dim wbSource As Workbook Dim wsSource As Worksheet Dim targetSheet As Worksheet Dim targetRow As Integer Dim folderIndex As Integer ' 事前に指定された2つのフォルダのパス folderPaths(1) = "C:\Path\To\Your\Folder1" folderPaths(2) = "C:\Path\To\Your\Folder2" ' 対象セルの初期化 targetRow = 1 ' フォルダごとに処理を繰り返す For folderIndex = 1 To 2 ' 選択したフォルダ内の全てのエクセルを一つずつ開く fileName = Dir(folderPaths(folderIndex) & "\*.xls*") If fileName = "" Then MsgBox "指定されたフォルダにExcelファイルが見つかりませんでした。", vbExclamation Exit Sub End If ' ③ 開いたシート内のC2、C3、I3（またはJ3）セルをコピーして ④ 貼り付け Do While fileName <> "" ' ファイルのフルパスを取得 filePath = folderPaths(folderIndex) & "\" & fileName ' Excelファイルを開かずにデータをコピー Set wbSource = Workbooks.Open(filePath, UpdateLinks:=0, ReadOnly:=True) ' 対象となるシートを指定 Set targetSheet = ThisWorkbook.Sheets(folderIndex) ' ターゲットシートにヘッダーを書き込む If targetRow = 1 Then targetSheet.Range("A1").Value = "C2" targetSheet.Range("B1").Value = "C3" targetSheet.Range("C1").Value = IIf(folderIndex = 1, "I3", "J3") End If ' 対象セルの値をコピー For Each wsSource In wbSource.Sheets targetSheet.Range("A" & targetRow).Value = wsSource.Range("C2").Value targetSheet.Range("B" & targetRow).Value = wsSource.Range("C3").Value targetSheet.Range("C" & targetRow).Value = IIf(folderIndex = 1, wsSource.Range("I3").Value, wsSource.Range("J3").Value) ' 次の行に移動 targetRow = targetRow + 1 Next wsSource ' ファイルを閉じる wbSource.Close SaveChanges:=False ' 次のファイルを取得 fileName = Dir Loop Next folderIndex ' 画面更新および警告の表示を再開 Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox "データのコピーが完了しました。", vbInformation End Sub 上記のVBAでシート１、2それぞれ貼付けの際にa1セルから順に貼り付けたいのですがどこを修正すればいいでしょうか？

質問日時: 2024/02/03 22:51 質問者: ケイ0000 カテゴリ: Visual Basic（VBA）

解決済

1

0
javascriptのエラーで質問です。

javascript(html・css)で質問です。動画を見て、クイズ形式で正解すれば、 alertが出るというものを作りたいんですが、何か画面を確認しながら、やっているのですが、全くの超初心者という事もあって、エーラーが出て、調べても、どこが間違っているのか、まったく分かりません。大変お手数ですが、どなたか、ご存じの方、教えて戴けないでしょうか？ <!DOCTYPE html> <html lang="ja"> <head> <meta charset="UTF-8"> <meta name="viewport" content="width=device-width, initial-scale=1.0"> <title>Document</title> <style> body,html,div,h1,h2,ul,li { margin: 0; padding:0; } h1 { background-color:rgb(214,255,255); color: rgb(121,149,240); text-align: center; margin-bottom: 20px; } h2 { text-align: center; font-size: 22px; font-weight: normal; } ul { text-align: center; margin: 20px auto; list-style: none; } .btn-box { text-align: center; } .btn-box button { background-color: rgb(196,196,214); color: #fff; border: none; padding: 10px 20px; cursor: pointer; } .btn-box button:hover { opacity: .7; } </style> </head> <body> <h1>クイズ</h1> <h2 id="question">ここに問題表示</h2> <ul> <li id="ans1">選択肢1</li> <li id="ans2">選択肢2</li> <li id="ans3">選択肢3</li> </ul> <div class="btn-box"> <button type="button" id="answer1" onClick="answerCheck(1)">回答1</button> <button type="button" id="answer2" onClick="answerCheck(2)">回答2</button> <button type="button" id="answer3" onClick="answerCheck(3)">回答3</button> </div> <script> let question = { [ "山形県のお米といえば?", "1.ひとめぼれ", "2.ほえぬき", "3,こしひかり", "3" ], [ "山形県の果物といえば?", "1.さくらんぼ", "2.マンゴー", "3,みかん", "2" ], [ "山形県の県庁所在地どこ?", "1.天草市", "2.東根市", "3,山形市", "3" ] }; console.log(question[0][0]); let quiz = document.getElementById('question'); let ans1 = document.getElementById('ans1'); let ans2 = document.getElementById('ans2'); let ans3 = document.getElementById('ans3'); let correct = 0; let quizCnt = 0; function quizSet() { quiz.textContent = question(quizCnt)[0]; ans1.textContent = question(quizCnt)[1]; ans2.textContent = question(quizCnt)[2]; ans3.textContent = question(quizCnt)[3]; } quizSet(); function answerCheck(ans) { if(ans == question[quizCnt][4]) { alert("正解!"); correct++; } else { alert("不正解、、、!"); } quizCnt++; if(quizCnt == question.length) { quiz.textContent = `正解数は${correct}でした!`; ans1.textContent =""; ans2.textContent =""; ans3.textContent =""; } else { quizSet(); } } </script> </body> </html> <button type="button" id="answer1" onClick="answerCheck(1)">回答1</button> ←ここでエラー

質問日時: 2024/02/03 18:52 質問者: zzhikkkk カテゴリ: JavaScript

ベストアンサー

2

0
VisualStudioで、コードを印刷する場合に、用紙の余白を調整して、1行80文字以上に設定した

VisualStudioで、コードを印刷する場合に、用紙の余白を調整して、1行80文字以上に設定したり、1ページの行数を増やすことは可能でしょうか？

質問日時: 2024/02/03 18:34 質問者: minarai_database カテゴリ: C言語・C++・C#

解決済

1

0
無料ｈｐ作成ソフトお勧め

こんにちは今まで長年expresson webとかいうソフトでｈｐ作ってきました。特段不便してなかったけどそろそろ不便を感じてきたので切り替えたいです。ｈｐに宣伝出るタイプは避けたいです。独自ドメイン持っててｆｔｐでアップできるので、ソフト側でドメインみたいの用意されていると都合悪いです。ソフト側でかっこいいテンプレが用意されそれに基づいて作るとかいうのも都合悪いです。すでに作ったものがあるのでそうしたデザインに合わせていく手間が結構ありそうなので。現在検索エンジンに拾われているページがすべて消えて引越し、しばらく検索にヒットしないになる感じかと思うのでウェブ編集アプリに独自ドメインあると都合悪いです。ｐｃにソフトダウンロードして編集ソフトで作成して、独自ドメインにアップしたいと思っています。

質問日時: 2024/02/01 09:14 質問者: takeyabeer カテゴリ: オープンソース

解決済

2

0
python の連鎖代入の文法

python では a = b = 1 を実行すると、aとbを 1　に初期化できます。所謂「連鎖代入」とよく呼ばれているものですが、 pythonの代入文は式ではないので a = (b = 1) とは書けず、Syntax Error になります。おそらく連鎖代入専用の文法があると思われます。 #代入式(:=演算子)を使えば似たことができますが、この質問では対象外としますそこで、文法上どうなっているか詳しく調べようとしたのですが、言語リファレンス「7.2 代入文」　あたりを見ても、それらしい記述がありません。どの辺に書いてあるのでしょうか？詳しい方がおられましたら宜しくお願いいたします。

質問日時: 2024/02/01 08:58 質問者: tknakamuri カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

1

0
郵便番号検索APIにてget ElementByTagNameでうまくを取得できない

EXCEL VBAにてyahoo郵便番号検索APIから最寄り駅を取得しようとしています。 get ElementByTagName("station")で取得しようとしますが、取得されません。＊を指定すれば、全要素は取得してきます。最終的にはStationのNameから都庁前と取得したいです。そこまで知識がなく誰かご教授いただけると助かります。よろしくお願いします。 https://developer.yahoo.co.jp/webapi/map/openlocalplatform/v1/zipcodesearch.html <Country> <Code>JP</Code> <Name>日本</Name> </Country> <Address>東京都新宿区西新宿２丁目８－１</Address> <GovernmentCode>13104</GovernmentCode> <AddressMatchingLevel>6</AddressMatchingLevel> <PostalName>東京都庁</PostalName> <Station> <Id>29213</Id> <SubId>2921301</SubId> <Name>都庁前</Name> <Railway>都営大江戸線</Railway> <Exit>A4</Exit> <ExitId>16417</ExitId> <Distance>167</Distance> <Time>2</Time> <Geometry> <Type>point</Type> <Coordinates>139.691368,35.690169</Coordinates> </Geometry> </Station> <Station> <Id>29085</Id> <SubId>2908501</SubId> <Name>西新宿</Name> <Railway>東京メトロ丸ノ内線</Railway> <Exit>2</Exit> <ExitId>15667</ExitId> <Distance>628</Distance> <Time>7</Time> <Geometry> <Type>point</Type> <Coordinates>139.692958,35.694213</Coordinates> </Geometry> </Station>

質問日時: 2024/01/31 23:25 質問者: アヤスカル1213 カテゴリ: Visual Basic（VBA）

ベストアンサー

2

0

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

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

質問する（無料）

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

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

プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて！goo」にも、「プログラミングを学べる子供...
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」

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

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

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