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

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

回答数

気になる

静止画画像をクリックすると音楽が鳴るスクリプトってありますか？

<audio>タグを使わないで、リンクもつけないで、演奏動画にしないで、その場で音楽再生音のみが聴けるような表示をつくりたいのですが・・

質問日時: 2024/03/31 22:49 質問者: odasaga09 カテゴリ: HTML・CSS

ベストアンサー

1

0
テーブルのセルデータを自動改行させずに、はみ出た部分は切り捨てたい

いつもお世話になっています。テーブルで、スマホ等の横幅が狭い画面で見た場合には、自動改行するのでなく、1行で表示できるように後尾を非表示にするには、どうすれば良いですか。一番簡単な方法をご教示ください。

質問日時: 2024/03/31 05:19 質問者: zyousuke カテゴリ: HTML・CSS

ベストアンサー

15

0
Gitについて質問。クローンしたフォルダをコピーして、色々書き換えて、さらにクローンして、そこに

Gitについて質問。クローンしたフォルダをコピーして、色々書き換えて、さらにクローンして、そこに上書き保存すると全部のファイルが変更点として出てきてしまうのですがどうにかなりませんか？実際中身は変わってなくて、差分のチェックするとエラーになったりもします。なんでこんなことしてるかと言うと、GitHub→Subversion→GitHubとバージョン管理してるからです。深くは聞かないでください。

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

ベストアンサー

2

0
テキストファイルのファイル名を抽出してBAT処理する方法はありますか。

テキストファイルのファイル名を抽出して、 1行目に挿入する処理をbatファイルでしたいです。＜データの内容＞フォルダーの中に 1.txt 2.txt 3.txt （ファイルが増える場合もあります） 1.txtのデータの中身がガソリンスタンドスーパーコンビニで処理後 1 ガソリンスタンドスーパーコンビニと先頭にテキストのタイトルを入れたいです。 2.txt以降も同じ処理をしたいです。これを、コマンドを使用し、batファイルで自動的に実行したいです。どのような方法があるでしょうか？

質問日時: 2024/03/29 15:02 質問者: ユコニカテゴリ: その他（プログラミング・Web制作）

ベストアンサー

3

0
こんなことてしますか？？

おもいつきで書いてみました。こういうことをすることはありますか？？すごい無駄ですか？？

質問日時: 2024/03/28 23:26 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

ベストアンサー

2

0
どちのほうがすきですか？

私の書いた def fizzBuzz(self, n: int) -> List[str]: res = [] for i in range(1, n + 1): s = '' if i % 3 == 0: s += 'Fizz' if i % 5 == 0: s += 'Buzz' if not s: s += str(i) res.append(s) return res いちばんはやいひとの def fizzBuzz(self, n: int) -> List[str]: fb_list = [] for i in range(1, n+1): if (i % 15 == 0): fb_list.append("FizzBuzz") elif (i % 3 == 0): fb_list.append("Fizz") elif (i % 5 == 0): fb_list.append("Buzz") else: fb_list.append(str(i)) return fb_list たぶんstrの操作って計算コスト大きいて思うし if, elif, else の塊にまとめたほうが各iで入るのは一この条件だけなのでそっちのほうがはやいとおもいましたけど、どっちがよきですか？？ int nにたいしてindex n に FizzBuzzを格納している配列を返す問題です。

質問日時: 2024/03/28 22:38 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

解決済

8

0
プログラミング、アーキテクチャ好きに質問です。 kotlinなどのMVVM、単方向データフローの考え

プログラミング、アーキテクチャ好きに質問です。 kotlinなどのMVVM、単方向データフローの考え方についてなんですが、 ViewModelがViewとModelのインスタンスを持つって考えの方がいい気がするんですがこれじゃダメなんですかね？まずメリット1つ目ですがViewModelが全てのインスタンスをもてばいいならひとつの画面に対して1つの情報源(ViewModel)があり、どのリソースを参照しているのかを把握しやすいため、仕様変更による修正やバグの修正がしやすい。従来の方法ではViewはViewModelのインスタンスを持ち、VieModelはModelのインスタンスを持つという形だったのでViewからModelまでに距離がありすぎるのと、使い回したいViewがあった時にツリーのようなネスト構造になることが予測できるため管理に一貫性を持てない。更に入力とDB(例えばORM)との依存性を保ちやすいからViewの再表示とかも管理しやすくなるのでは？

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

ベストアンサー

4

0
コードを書いて下さい（ ; ; ）写真有り

添付している写真の html cssのコードを書いていただきたいです白長方形の幅は1200px 画像の大きさ幅600px 縦408px テキスト内につきましてタイトルはh3 上部の余白56px 右側の余白75px(写真との余白) 下側の余白134px 左側の余白100px ノーコードで作成していたのですが、うまくいかず、、、分かる方コードを手入力しようと思っています…よろしくお願いします（ ; ; ）

質問日時: 2024/03/28 18:55 質問者: Jijtmdp745j カテゴリ: HTML・CSS

解決済

2

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

下記のコードを一つにまとめる方法を教えてください。下記のコードはセル値「F3」に「札幌市」と表示されるとマクロ Call 注意2表示 Call 札幌道路図形表示 Call 札幌開発資料図形表示 Call 札幌資料図形表示が実行されます。このコードを一つにまとめる方法を教えてください。現状のコード If Range("F3").Value = "札幌市" Then Call 注意2表示 End If If Range("F3").Value = "札幌市" Then Call 札幌道路図形表示 End If If Range("F3").Value = "札幌市" Then Call 札幌開発資料図形表示 End If If Range("F3").Value = "札幌市" Then Call 札幌資料図形表示 End If 以上となります。よろしくお願いいたします。

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

ベストアンサー

1

0
Word VBA MSGBOX 内で降順表示

下記のVBAはWORDファイル内の青文字で書かれた登録日を検索し、MSGBOXに表示するもので、正常に使えています。　しかし、MSGBOX内の表示がファイル内での順番になっています。昇順または降順表示にしたいのですが、　ネット検索してトライしましたが結果が得られていません。ご指導いただければ大変たすかります。よろしくお願いします。　 Sub TEST() '検索　青文字「ＡＢＣ」+　日付 Dim vv As Variant Dim i As Integer i = 0 ReDim vv(i) ActiveDocument.Range(0, 0).Select With Selection.Find .Font.Color = wdColorBlue .Text = "登録日 202[0-9]/[0-9]{1,2}/[0-9]{1,2}" .MatchFuzzy = False .MatchWildcards = True Do While Selection.Find.Execute vv(i) = Selection i = i + 1: ReDim Preserve vv(i) Loop End With MsgBox "登録日" + vbCrLf + vbCrLf + Join(vv, vbCrLf) End Sub

質問日時: 2024/03/28 13:12 質問者: oldhidesan カテゴリ: Visual Basic（VBA）

ベストアンサー

3

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

下記のマクロを実行すると指定フォルダ内の指定ファイルを開く事が出来ますが、マクロを実行すると、PDFファイルが、Excelシートの呼び込みされてしまします。マクロを実行した時に、PDFそのままの状態で開く事が出来る方法を教えてください。現状のマクロ Sub 道路資料を開く() Dim alert As VbMsgBoxResult alert = MsgBox("道路確認照会確認をしますか？", vbYesNo + vbQuestion, "道路確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Workbooks.Open Filename:=" \\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\資料\道路開発照会資料\道路照会の要否.pdf" End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

1

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

下記のマクロは以前教えて頂いたマクロで、マクロを実行すると、指定フォルダ内に指定セル値にて保存されますが、その時に指定の非表示シート「List = Array("休日", "受付", "管理表", "300")」が削除されますが、この部分の非表示シートを全て削除しないように変更出来る方法を教えてください。現状のマクロ Sub 行政報告標準() Dim alert As VbMsgBoxResult alert = MsgBox("行政報告を保存します。", vbYesNo + vbQuestion, "行政報告確認") If alert <> vbYes Then Exit Sub End If Application.ScreenUpdating = False Dim folder As String folder = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\" & Worksheets("選択シート").Range("E4").Text & "　【担当】確認番号　建物名称\" & Worksheets("選択シート").Range("E3").Text & "\" Dim initName As String initName = folder & Worksheets("【標準】第1号様式").Range("Z1").Value Dim newName As String newName = initName & ".xlsm" Dim thisBk As Workbook Dim copyBk As Workbook Set thisBk = ActiveWorkbook ThisWorkbook.SaveCopyAs newName Set copyBk = Workbooks.Open(newName) Dim ws As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean List = Array("休日", "受付", "管理表", "300") For Each ws In copyBk.Worksheets Chk = False If ws.Visible = False Then For i = 0 To UBound(List) If ws.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & ws.Name & vbCrLf Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws copyBk.Close SaveChanges:=True Application.ScreenUpdating = True End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

1

0
Sub 要具ライフ() ActiveSheet.Cells.Find(what:="ＴＯＰゴム").

Sub 要具ライフ() ActiveSheet.Cells.Find(what:="ＴＯＰゴム").offset(0,3) = ActiveSheet.Next.Cells.Find(what:="ＴＯＰゴム").Offset(0, 3).Value + 1 End Sub 　　上記のコードで、選択している隣のシート中にある特定の文字の下のセル内の数値に加算した値を選択しているシート中の同じ文字の下のセルに入れたいのですが実行できません。シートを新しく作った時、隣のシートの行数が挿入するなどで変更される場合があるため行位置が一定でありません。よって、特定の文字のセル位置から出力するセルを探したいです。どなたか、教えていただけないでしょうか？

質問日時: 2024/03/27 11:57 質問者: かなもゆカテゴリ: Visual Basic（VBA）

ベストアンサー

2

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

下記のマクロは以前教えて頂いたマクロを少しアレンジして設定しております。マクロを実行すると、ダイアログが開き、指定フォルダに指定セル値名でマクロ有効ブックで保存できます。保存後に、元のマクロ有効ブックが閉じるようになっております。マクロ実行前のファイルもマクロ有効ブックです（マクロ有効テンプレートではありません）しかし、マクロを実行すると、画像のようなエラーメッセージが表示され、コードの「For i = 0 To UBound(List)」部分が黄色くなっております。この問題の解決方法を教えて現状のマクロ Sub 昇降機青紙保存() Dim alert As VbMsgBoxResult alert = MsgBox("【青紙】保存を行いますか？", vbYesNo + vbQuestion, "【青紙】保存確認") If alert <> vbYes Then Exit Sub End If On Error Resume Next Application.DisplayAlerts = False Dim vDeleteSheet As Variant On Error GoTo 0 Application.ScreenUpdating = False Const folder As String = "\\nas-sp01\share\確認部\電子申請　関連\１．受付\１．確認申請\" Dim newName As Variant Dim initName As String initName = folder & Range("CQ1").Value newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm") If newName = False Then Exit Sub Dim ws As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long Dim Chk As Boolean For Each ws In Worksheets Chk = False If ws.Visible = False Then For i = 0 To UBound(List) If ws.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & ws.Name & vbCrLf Application.DisplayAlerts = False ws.Delete Application.DisplayAlerts = True End If End If Next ws ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled Application.ScreenUpdating = True Application.Quit With ThisWorkbook .Saved = True .Close False End With End Sub 以上となります。よろしくお願いいたします。

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

ベストアンサー

2

0
VBA listBoxについて

動作としてはTextBox1に検索対象(管理№例100053)を入力（完全一致ではなく一部入力でも）該当する№がリストボックスに表示します表示したリストから該当の№をクリックしたらsheet1のＢ列にカーソルが移動した対象を確認、その№行の指定したセルに転記させるというながれになります検索対象の桁数があるので下桁でも表示はするのですがクリックしてカーソルがその対象とは違うところに移動してしまいます問題なく動くときは頭の１桁検索しスクロールで対象をクリックした時になります現状はこのようになってますどのようにしたら改善するのでしょうか？(´;ω;｀) Private Sub TextBox1_Change() ' TextBox入力した時の処理 Dim i As Long Dim Mydata As Variant Dim lastRow As Long Dim Cnt As Long Dim searchTerm As String Dim listBoxIndex As Integer ' 配列カウント初期化 Cnt = 1 ' 最終行を取得 lastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, 2).End(xlUp).Row ' 2次元配列の要素数を変更 ReDim Mydata(1 To lastRow, 1 To 20) ' 検索対象が空の場合は処理を終了 searchTerm = Me.TextBox1.text If Len(searchTerm) = 0 Then Exit Sub For i = 1 To lastRow If InStr(1, Sheets("Sheet1").Cells(i, 2), searchTerm) > 0 Then ' 配列に列の値と、セル番号を格納 Mydata(Cnt, 1) = i + 1 Mydata(Cnt, 2) = Cells(i, 2) Mydata(Cnt, 3) = Cells(i, 3) Mydata(Cnt, 4) = Cells(i, 4) Mydata(Cnt, 5) = Cells(i, 5) Mydata(Cnt, 6) = Cells(i, 6) Mydata(Cnt, 7) = Cells(i, 7) Mydata(Cnt, 8) = Cells(i, 8) Mydata(Cnt, 9) = Cells(i, 9) Mydata(Cnt, 10) = Cells(i, 10) Mydata(Cnt, 11) = Cells(i, 11) Mydata(Cnt, 12) = Cells(i, 12) Mydata(Cnt, 13) = Cells(i, 13) Mydata(Cnt, 14) = Cells(i, 14) Mydata(Cnt, 15) = Cells(i, 15) Mydata(Cnt, 16) = Cells(i, 16) Mydata(Cnt, 17) = Cells(i, 17) Mydata(Cnt, 18) = Cells(i, 18) Mydata(Cnt, 19) = Cells(i, 19) Mydata(Cnt, 20) = Cells(i, 20) ' 他の列のデータも同様に追加 ' ... ' 配列カウント増加 Cnt = Cnt + 1 End If Next i ' 検索で一致したデータをリストボックスに表示 With ListBox1 .ColumnCount = 20 .ColumnWidths = "30;55;40;0;150;90;130;130;0;0;60;150;0;0;0;0;120,60,130,30" .List = Mydata End With End Sub Private Sub ListBox1_Click() ' リストボックス内をクリックして該当セルを選択 Dim rowIndex As Integer Dim targetCell As Range ' 選択された項目の行番号を取得 rowIndex = ListBox1.ListIndex + 2 ' 対応するセルを選択 Set targetCell = Sheets("Sheet1").Cells(rowIndex, 2) targetCell.Select End Sub Private Sub CommandButton1_Click() Dim selectedRow As Integer Dim r As Integer If Me.ComboBox6 = "" Then MsgBox "管理場所が入力されてません" Exit Sub End If If Me.ComboBox7 = "" Then MsgBox "担当者が入力されてません" Exit Sub End If ' リストボックス内で選択された行のインデックスを取得 selectedRow = ListBox1.ListIndex For r = 2 To Cells(Rows.Count, "B").End(xlUp).Row If ListBox1.ListIndex = r - 2 Then ' 選択された行が有効かどうかを確認 ' 選択された行に基づいてデータを転記 Cells(r, 18).Value = Me.TextBox4.Value Cells(r, 19).Value = Me.ComboBox6.Value Cells(r, 20).Value = Me.ComboBox7.Value Cells(r, 21).Value = Me.TextBox2.Value ' 選択された行をリストボックスから削除 ListBox1.RemoveItem r - 2 Exit For ' 処理が完了したらループを終了 End If Next r End Sub

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

ベストアンサー

2

0
CSSデータの作成方法について（FTP内）

専門の方にショップページを作成していただき、その後ちょっとしたページのレイアウト編集は、自力でしております。 FTP内に、CSSデータが組み込まれていますが、一部デザインの色を変更したいと考えております。 FTPをのぞいてみると、CSSファイルがあったのですが、そちらはメモ帳で開くことができました。メモ帳でCSSデータを作成することは可能でしょうか。ファイル名は「カスケードスタイルシートドキュメント」と記載されています。どうぞ、よろしくお願いいたします。

質問日時: 2024/03/26 15:55 質問者: mikaco333 カテゴリ: HTML・CSS

ベストアンサー

5

0
単語を少し変えると1位になるのだけど、６位くらいになります。

ページを立派いにしたのにいまいちseo順位が上がらなかったため seoのプロにお金を払い分析してもらいました。結果、例えばで話しますが、「〇（市名から市を抜いたもの）　ガラス屋」なら１位に来るけど「〇市　ガラス屋」では５，６位に来るので、こんな業者は初めてだとのことで、私が作っているページに「△市　ガラス屋」みたいなページもあるため、検索エンジンは「市」という言葉に反応し、ユーザーが「〇市　ガラス屋」で検索したとき、私のサイトの〇市と△市どちら優先させるかで迷ってしまい検索順位が下がるとのことでした(;^_^A わかりやすく言うと人間の目には〇市ガラス屋と△市ガラス屋別もんで混同しませんが、検索エンジンは市を除いた部分以外一緒なのでどっち優先させるか迷って順位が下がってるんだとか。アドバイスを受けてコンサルがお勧めする、外部のページに△市ガラス屋のページを移行させ、元のページは、△市ガラス屋ページ移転のお知らせに変えましたし、検索エンジンもこのページを新たにインデックスしましました。でも、〇市ガラス屋のページの検索順位は以前と変わりません(;^_^A なんかほかの原因あるんでしょうか？「〇（市名から市を抜いたもの）　ガラス屋」なら１位に来るけど「〇市　ガラス屋」では５，６位に来る理由です。ちなみに市名がなんかの食べ物名と一緒とか、人名と一緒とかそういうのはなく、市名抜いた検索でもずらっと地元市のガラス屋一覧が出てきます。

質問日時: 2024/03/25 21:05 質問者: linkshuu カテゴリ: SEO

解決済

2

0
VBAを使用した時間管理

ある列(例：C列)に文字列(例：開始、終了)が入力されたら右横のセルに入力された時間表示し、整数が入力された場合は左横のセルに日付を表示させたいです。開始、終了、整数はバーコードリーダーを使用してQR化した文字列、数字を取得する予定です。ご回答よろしくお願いします。

質問日時: 2024/03/25 12:45 質問者: かずよこカテゴリ: Visual Basic（VBA）

解決済

4

0
左右の表のキー位置を合わせたい

左表と右表がありますが、キーがあったりなかったりして行がずれているのを一致させた表をつくろうとしています。キーの有無を判定して相手方の表に空行を挿入する方法以外でもっと良い方法はありませんか？

質問日時: 2024/03/25 10:23 質問者: rexfan カテゴリ: Visual Basic（VBA）

解決済

4

0
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ

エクセルVBAにて =A1=B1とすれば　A1とB1のセル内容が一緒だった場合　TRUE 違っていれば FALSE になる。上と似たようにA列とB列が一緒だった場合　TRUE 違っていれば　　FALSE ←この列での判定はできるのでしょうか？また、あればVBAでこの列での判定があればコードを教えていだきたいです。

質問日時: 2024/03/24 19:05 質問者: 社畜お兄さんカテゴリ: Visual Basic（VBA）

ベストアンサー

2

0
Stuck

まいにちいちもんか数問問題をといて、たいてい解けないから他の人の解説とか見て考え方を把握したきもちになって、コードを見るだけじゃなくてわかったと思ったのを自分で一から書いてみるとかしてますけど、結局そのコード自体をその場で覚えてしまってるかんじがして、ぜんぜん成長してるかんじがしません。なにが悪いと思いますか？アルゴリズムの本自体はに冊くらいよみました。今はアルゴリズムの試験の勉強のためにしてます https://www.youtube.com/watch?v=gqXU1UyA8pk

質問日時: 2024/03/24 12:04 質問者: ゆゆにゃ。カテゴリ: C言語・C++・C#

ベストアンサー

3

0
Windowsのアプリ開発ってなんのためにするんですか？ Excelで入力、更新、表示、検索、削除、

Windowsのアプリ開発ってなんのためにするんですか？ Excelで入力、更新、表示、検索、削除、行列の非表示、編集用パスワードの設定、式の計算、セレクトボックスの設定、時間入力のショートカット、テーブルのリレーション、フォーム入力、こんだけ出来てなんでExcelで管理していたものをWindowsアプリで作ってって依頼するんでしょう？税金対策か何かですか。お金の無駄だと思います。 Excelで唯一出来ないことと言ったら0で始まる数字の0を消さないようにする設定くらいですよね。マクロは変な需要ない限り要らないし。

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

ベストアンサー

6

1
エクセルの合計を自動で表示させたいです

１か月の合計を集計したセルの値をフォームのテキストにリンクさせて表示させていますが　此れですと　毎月リンクのセルを変えなければなりません　常に直近１カ月の集計を表示せせることは出来ないでしょうか　ご指南頂ければ幸いです　よろしくお願い致します

質問日時: 2024/03/23 22:20 質問者: tompapa2021 カテゴリ: Visual Basic（VBA）

解決済

3

0
PythonやJavaScriptのように実質的に数の桁数を無限に扱える言語と、全く無限に使えない言

PythonやJavaScriptのように実質的に数の桁数を無限に扱える言語と、全く無限に使えない言語の違いはなんですか？

質問日時: 2024/03/22 21:33 質問者: だいぬカテゴリ: JavaScript

ベストアンサー

3

0
Webプログラムってネイティブアプリプログラムに比べて遥かに簡単すぎる気がするのですが気の所為ですか

Webプログラムってネイティブアプリプログラムに比べて遥かに簡単すぎる気がするのですが気の所為ですか？

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

ベストアンサー

3

0
VBAの質問になります Userform内で

TextBoxに検索対象を入力しリストボックスに表示させているのですが検索対象を1つ限定ではなく含む検索にしたいのですが可能でしょうか？現状は下記になります 'B列に該当データがあったら If Cells(i, 2) = Me.TextBox1.Text Then せっかくリストボックスにしているのですから含む検索にして該当する物も表示させたいと思いました検索対象は管理№になります　100002や100002_1または1000021なども含みたいです

質問日時: 2024/03/22 16:40 質問者: kacky76 カテゴリ: Visual Basic（VBA）

解決済

2

0
VBAの質問になりますメッセージボックス

UserForm内で一つ一つのBOXに空白の場合ウィンドウ出るようにしてありますがまとめて"入力されていない箇所があります"にしたいのですが可能でしょうか？現状はこのようになっています If Me.TextBox1 = "" Then MsgBox "入力されていません" Exit Sub End If BOX数が多くて面倒なので(;^_^A TextもComboもあります

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

解決済

1

0
Excelのマクロでワードのテキストボックスへデータをコピーする方法を教えてください

以下のようなExcelデータがあります。 AAA　3 BBB　1 CCC　0 ※AAAは本来は日本語の文字データで、連続性はありません。 B列の値が1以上のときにWordの任意のテキストボックスへその値を入力したいです。 AAAはテキストボックス1へ、BBBはテキストボックス2へというように入力していきたいです。また、上記ではCCCまでですが下に100件ほどデータがあります。どのようにマクロをかいてよいのかわからず、教えてください。よろしくお願いいたします。

質問日時: 2024/03/22 11:51 質問者: neko9868 カテゴリ: Visual Basic（VBA）

解決済

1

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

下記の2つのVBAコードを一つにまとめる方法を教えてください。下記のコードは以前教えて頂いたコードを少しアレンジして作成しております。 1つ目のコードはセル「F18」に各「昇降機_エレベーター」「昇降機_エスカレーター」「昇降機_ダムウエーター」「昇降機_いす式昇降機」のいずれかが表示された場合に、非表示シート「昇降機第2号様式」が表示又は、「F18」の各表示がなければ「昇降機第2号様式」が非表示となります。 2つ目のコードも同じくセル「F18」に各「昇降機_エレベーター」「昇降機_エスカレーター」「昇降機_ダムウエーター」「昇降機_いす式昇降機」のいずれかが表示された場合に、非表示シート「昇降機第2号様式」が表示又は、「F18」の各表示がなければ「昇降機第5号様式」が非表示となります。このコードを「F18」に各「昇降機_エレベーター」「昇降機_エスカレーター」「昇降機_ダムウエーター」「昇降機_いす式昇降機」のいずれかが表示された場合に、非表示シート「昇降機第2号様式」と「昇降機第5号様式」の2つのシートが表示又は、「F18」の各表示がなければが非表示となるように出来る方法を教えてください。 1つ目のコード Private Sub Worksheet_Change(ByVal Target As Range) If Range("F18") = "昇降機_エレベーター" Or _ Range("F18") = "昇降機_エスカレーター" Or _ Range("F18") = "昇降機_ダムウエーター" Or _ Range("F18") = "昇降機_いす式昇降機" Then Sheets("昇降機第2号様式").Visible = xlSheetVisible Else Sheets("昇降機第2号様式").Visible = xlSheetHidden End If 2つ目のコード If Range("F18") = "昇降機_エレベーター" Or _ Range("F18") = "昇降機_エスカレーター" Or _ Range("F18") = "昇降機_ダムウエーター" Or _ Range("F18") = "昇降機_いす式昇降機" Then Sheets("昇降機第5号様式").Visible = xlSheetVisible Else Sheets("昇降機第5号様式").Visible = xlSheetHidden End If End Sub 以上となります。宜しくお願い致します。

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

ベストアンサー

3

0
javascriptで質問です。 displayプロパティを使用してテーブルの一部を表示・非表示をし

javascriptで質問です。 displayプロパティを使用してテーブルの一部を表示・非表示をしたいのですが、設定したい要素をうまく取得することができません。ボタン押下したclass testのtableのtrにclass testにtr要素.style.display = 'none'や'block'を設定してボタンで切り替えれるようにしたいのですが、うまく設定したい要素を取得できません。ボタンを押下した、テーブルのclass testだけの要素を取得する方法はないでしょうか。どうかお助けください。 //テーブル1 <table> <tr> <th>情報１</th> <th>情報２</th> </tr> <tr> <td>値1<button onclick="test()" type="button">詳細</button></td> <td>値2</td> </tr> <tr class="test"> <td>値3</td> <td>値4</td> </tr> </table> //テーブル2 <table> <tr> <th>情報１</th> <th>情報２</th> </tr> <tr> <td>値1<button onclick="test()" type="button">詳細</button></td> <td>値2</td> </tr> <tr class="test"> <td>値3</td> <td>値4</td> </tr> <tr> <td>値3</td> <td>値4</td> </tr> </table>

質問日時: 2024/03/21 11:18 質問者: piraniaman カテゴリ: JavaScript

ベストアンサー

3

0
Excel マクロについての相談

お世話になっております。マクロのコードについての相談です。シート名を「リスト」シートから取得して同じシートを複数作成するマクロを作成していますが、上手く動作しなかったため、ご教授頂きたく質問いたしました。「１」シートを複製し、「リスト」シートから取得した値をシート名にするマクロを組んでいました。「リスト」シートの最終行を取得させて繰返し処理をさせると、実行エラー「1004」アプリケーション定義またはオブジェクト定義のエラーが発生し、「１（２）」シートが作成されてしまいます。この２つの問題を発生させないように改善したいため、お力添えいただいだけると幸いです。よろしくお願いいたします。下記現状のコードとなります。 Sub シート複製() Worksheets("リスト").Activate For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row Sheets("１ ").Copy after:=Sheets(Sheets.Count) Range("O5") = Sheets("リスト").Cells(i, "B") ActiveSheet.Name = Sheets("リスト").Cells(i, "C") Next i End Sub

質問日時: 2024/03/20 15:02 質問者: うらうらP カテゴリ: Visual Basic（VBA）

解決済

5

0
Notepad++の関数リスト表示の変更方法をお教えください。

Notepad++を使用しております。この度BorlandC++Builder5.0で作成されたプログラム編集することになったのですが、 Notepad++でcppファイルを開くと関数リストが正しく表示されません。以前、こちらで設定ファイルの変更が必要とお教えいただいたのですが、具体的な方法が分からず困っております。どなたか変更の方法に関して、詳しい方がおられましたご教授下さい。下記となります。 // ①表示される。 __fastcall ClassA::ClassA( AnsiString fn ) { } // ②表示されない。 __fastcall ClassA::~ClassA( void ) { } // ③表示されない。 int __fastcall ClassA::FunctionA( void ) { } // ④表示されない。 void __fastcall FunctionB( void ) { } // ⑤表示されない。 void __fastcall ~FunctionC( void ) { }

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

ベストアンサー

1

0
なんでブラウザでPHPを動かすためだけにOSにPython2(Python3)を入れて、C(GCC)

なんでブラウザでPHPを動かすためだけにOSにPython2(Python3)を入れて、C(GCC)を入れてMySqlを入れてHTML,CSS,JavaScriptをやらないといけないんスカ！

質問日時: 2024/03/20 00:24 質問者: だいぬカテゴリ: PHP

ベストアンサー

2

0
Javascript で共通の処理をどこまでまとめるべきか分からないのでアドバイスお願い致します

掲示板を非同期通信で入力→確認→表示で作成しております。確認画面を下記のように作成しているのですが、新たに任意で画像アイコンをアップロードする機能を加えたいと考えております。(アップロードされていない場合はダミー画像を表示) 画像アイコンの条件を3つほど想定していて、ファイルアップロードに関するコードと被る部分も出てくる為、どこまでまとめるべきか悩んでおります。カメラ画像と別の画像を用意する場合の書き方についてのアドバイスもお願い致します。 ➀カメラ画像ではなく別の画像を用意する、可能であれば画像サイズは5MBで制限したい ➁アイコンは画像のみアップロードを許可 ➂clear ボタンのデザインはそのまま使う ※確認画面イメージ Q質問する　　　　　　STEP1入力＞STEP2確認＞STEP3完了タイトル　　　　　　　　　　　　　　　　　スタンプ画像画像アイコン　名前メッセージアップロードファイル1　　アップロードファイル2　　アップロードファイル3 修正するボタン　　　　　投稿するボタン ※ファイルアップロードに関するコード <div class="image-partial"> <h2>動画・画像アップロード<span class="required">※ファイルサイズ15MB以内</span></h2> <div class="image-selector-button"> <label> <div class="image-camera-icon"> <img src="<?php echo $camera_url; ?>" class="changeImg"> </div> <input type="file" class="attach" name="attach[]" accept=".png, .jpg, .jpeg, .pdf, .mp4" style="display: none;"> </label> <div class="viewer"></div> <button type="button" class="attachclear">clear</button> </div> </div> <script> const set_attach_event = function() { const attach = document.querySelectorAll('.attach'); const clear = document.querySelectorAll('.attachclear'); const viewer = document.querySelectorAll('.viewer'); const changeImg = document.querySelectorAll('.changeImg'); // 入力されたら消す画像 for (let i = 0; i < attach.length; i++) { attach[i].addEventListener('change', () => { if (attach[i].files[0].size > 15 * 1024 * 1024) { alert('15MBバイト超えています'); return; } viewer[i].innerHTML = ""; blobType[i] = ""; blobUrl[i] = ""; if (attach[i].files.length !== 0) { //オブジェクトのURL作成 blobUrl[i] = window.URL.createObjectURL(attach[i].files[0]); //FileReaderオブジェクト生成し、ファイルの内容を非同期で取得 const reader = new FileReader(); reader.onload = () => { var child = null; //result プロパティは、ファイルの内容 if (reader.result.indexOf("data:image/jpeg;base64,") === 0 || reader.result.indexOf("data:image/png;base64,") === 0) { blobType[i] = "img"; child = document.createElement("img"); } else if (reader.result.indexOf("data:video/mp4;base64,") === 0) { blobType[i] = "video"; child = document.createElement("video"); child.setAttribute("controls", null); } else if (reader.result.indexOf("data:application/pdf;base64,") === 0) { blobType[i] = "iframe"; child = document.createElement("iframe"); } else { alert("対象外ファイル"); attach[i].value = ""; } if (child !== null) { child.src = blobUrl[i]; //戻り値は追加した子要素 viewer viewer[i].appendChild(child); changeImg[i].classList.add('hideItems'); // 元々の画像を消す } }; //Blob 又は File の内容を読み込む reader.readAsDataURL(attach[i].files[0]); } }); clear[i].addEventListener('click', () => { blobType[i] = ""; blobUrl[i] = ""; attach[i].value = ""; viewer[i].innerHTML = ""; changeImg[i].classList.remove('hideItems'); }); }; } </script>

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

解決済

1

0
スカラーのベクトル微分

Pythonでスカラー値をベクトルで微分する書き方を教えて下さい。例えば、 a = np.array([1.0,2.0,3.0]) b = np.array([[1.0,2.0,3.0],[4.0,5.0,6.0],[7.0,8.0,9.0]]) でスカラー値 c = np.dot(a, np.dot(b, a)) をベクトルaで偏微分する書き方です。

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

ベストアンサー

3

0
jsで質問です。 displayプロパティを用いて下記の情報4〜6のtrタグをボタンで表示・非表示を

jsで質問です。 displayプロパティを用いて下記の情報4〜6のtrタグをボタンで表示・非表示を切り替えられるようにしたいのですが、どのようにしたら良いでしょうか。 <table><tr><td>情報１</td><td>情報２</td><td>情報３</td></tr><tr><td>情報4</td><td>情報5</td><td>情報6</td></tr></table>

質問日時: 2024/03/19 10:18 質問者: piraniaman カテゴリ: JavaScript

ベストアンサー

5

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

作業ブックのシート名「省エネ質疑」に下記のコードを設定しております。 Private Sub Worksheet_Change(ByVal Target As Range) Sheets("F設計").Visible = [$F$18] = "ﾌﾗｯﾄ設計審査_標準計算" Sheets("F設計").Visible = [$F$18] = "ﾌﾗｯﾄ設計審査_仕様基準" End Sub セル「F18」に"ﾌﾗｯﾄ設計審査_標準計算"又は"ﾌﾗｯﾄ設計審査_仕様基準" が表示されると非表示シート名「"F設計"」が表示されるように設定しておりますが、セル「F18」に"ﾌﾗｯﾄ設計審査_仕様基準"を表示させたときは非表示シート「"F設計"」が表示されますがセル「F18」に"ﾌﾗｯﾄ設計審査_標準計算"を表示させたときは非表示シート「"F設計"」が表示されません。文字等の確認は全て問題ありません、又、一つ一つ Private Sub Worksheet_Change(ByVal Target As Range) Sheets("F設計").Visible = [$F$18] = "ﾌﾗｯﾄ設計審査_標準計算" End Sub 又は Private Sub Worksheet_Change(ByVal Target As Range) Sheets("F設計").Visible = [$F$18] = "ﾌﾗｯﾄ設計審査_仕様基準" End Sub を設定するとそれぞれ上手、非表示シートが表示されます。両方のコードを設定すると上手く行きません。この問題を解決できる方法を教えてください。宜しくお願い致します。

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

ベストアンサー

2

0
ArduinoでMouse関数を使用して、エラーでビルドできず

Arduino UnoでMouse関数を使用して、カーソルを制御したく。そこでMouse.hを張り付けて、スケッチを以下のように書きました。 #include <Mouse.h> void setup() { Mouse.begin(); } void loop() { Mouse.click(); } しかし、以下のエラーが出て、ビルドしません。 C:\Users\kimura\Documents\Arduino\Button_Mouse\Button_Mouse.ino: In function 'void setup()': C:\Users\kimura\Documents\Arduino\Button_Mouse\Button_Mouse.ino:5:3: error: 'Mouse' was not declared in this scope Mouse.begin(); ^~~~~ C:\Users\kimura\Documents\Arduino\Button_Mouse\Button_Mouse.ino: In function 'void loop()': C:\Users\kimura\Documents\Arduino\Button_Mouse\Button_Mouse.ino:11:6: error: 'Mouse' was not declared in this scope Mouse.click(); ^~~~~ exit status 1 Compilation error: 'Mouse' not found. Does your sketch include the line '#include <Mouse.h>'? インクルーズしているのに、含まれていないとエラーが出ています。原因と対策を教えてください。

質問日時: 2024/03/18 16:53 質問者: yukenai カテゴリ: C言語・C++・C#

解決済

2

0
テーブルの行を折りたたみたいのですが、detailsタグとsummaryタグを使ってもうまくいきませ

テーブルの行を折りたたみたいのですが、detailsタグとsummaryタグを使ってもうまくいきませんでした。テーブル全てならうまくいきました。例えば情報4〜6のtrタグだけを折りたたむことは出来ないのでしょうか。どうかご教示ください <table> <tr> <td>情報１</td> <td>情報２</td> <td>情報３</td> </tr> <tr> <td>情報4</td> <td>情報5</td> <td>情報6</td> </tr>

質問日時: 2024/03/18 14:47 質問者: piraniaman カテゴリ: HTML・CSS

ベストアンサー

3

1
ExcelのVBAです。フォルダ内の全ファイルに、各ファイルの最初のシートを12か月分コピー

フォルダの中に入っている複数のエクセルファイルに、各ファイルの一番左（または一番右）にあるシートをコピーし、各ファイル内に12か月分のシート（12枚のシート）を追加で作成したいと思います。 202404、202405、202406・・・のようにシート名を付けて、フォルダ内にあるすべてのファイルに対して上記の処理を行うVBAは可能でしょうか。

質問日時: 2024/03/18 14:44 質問者: カチカチ山の狸カテゴリ: Visual Basic（VBA）

解決済

3

0
codejump 模写コーディングgalleryの背景画像fadein fadeoutについて

codejumpのgalleryサイトの模写コーディングをしているのですが、accessからcontactにかけて背景画像をfadein,fadeoutさせるとこを素のjavascriptに書き直してみたのですが、うまく表示されません。galleryの途中から一瞬表示されて消えてしまいます。どなたか解る方いらっしゃいましたら。ご教授いただけると幸いです。 javascriptのコードは以下になります。 window.addEventListener('scroll', ()=> { let scroll = window.pageYOffset || document.documentElement.scrollTop; let access_position = document.getElementById('access').getBoundingClientRect().top - window.innerHeight; let contact_position = document.getElementById('contact').getBoundingClientRect().top - window.innerHeight; if (scroll >contact_position) { if (scroll < access_position) { document.querySelector('.bg').style.display = 'block'; } else { document.querySelector('.bg').style.display = 'none'; } } else { document.querySelector('.bg').style.display = 'none'; } });

質問日時: 2024/03/18 13:42 質問者: unimo カテゴリ: JavaScript

解決済

1

0
htmlで<form>~</form>を並べて記述すると一行置きに記述されてしまうのですがこれを回避

する方法はあるでしょうか？ <html><head></head><body> <form><button>ok</button></form> <form><button>ng</button></form> <form><button>xy</button></form> </body></html>

質問日時: 2024/03/18 06:24 質問者: reiman カテゴリ: HTML・CSS

ベストアンサー

3

0
あなたは、Excelはどうやって学びましたか？

あなたは、Excelはどうやって学びましたか？

質問日時: 2024/03/17 21:29 質問者: 安藤カテゴリ: C言語・C++・C#

解決済

13

0
フリーランスのエンジニアってどういう仕事するんですか？テストとかしないでいいならだいぶザルな仕事な気

フリーランスのエンジニアってどういう仕事するんですか？テストとかしないでいいならだいぶザルな仕事な気がするのですが

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

ベストアンサー

5

1
stable diffusionのエラー

以下のようなエラーが出て実行できませんでした解決策を教えてください *** Error setting up CodeFormer Traceback (most recent call last): File "/content/gdrive/MyDrive/sd/stable-diffusion-webui/modules/codeformer_model.py", line 30, in setup_model from modules.codeformer.codeformer_arch import CodeFormer File "/content/gdrive/MyDrive/sd/stable-diffusion-webui/modules/codeformer/codeformer_arch.py", line 9, in <module> from modules.codeformer.vqgan_arch import VQAutoEncoder, ResBlock File "/content/gdrive/MyDrive/sd/stable-diffusion-webui/modules/codeformer/vqgan_arch.py", line 11, in <module> from basicsr.utils import get_root_logger File "/usr/local/lib/python3.10/dist-packages/basicsr/__init__.py", line 4, in <module> from .data import * File "/usr/local/lib/python3.10/dist-packages/basicsr/data/__init__.py", line 22, in <module> _dataset_modules = [importlib.import_module(f'basicsr.data.{file_name}') for file_name in dataset_filenames] File "/usr/local/lib/python3.10/dist-packages/basicsr/data/__init__.py", line 22, in <listcomp> _dataset_modules = [importlib.import_module(f'basicsr.data.{file_name}') for file_name in dataset_filenames] File "/usr/lib/python3.10/importlib/__init__.py", line 126, in import_module return _bootstrap._gcd_import(name[level:], package, level) File "/usr/local/lib/python3.10/dist-packages/basicsr/data/realesrgan_dataset.py", line 11, in <module> from basicsr.data.degradations import circular_lowpass_kernel, random_mixed_kernels File "/usr/local/lib/python3.10/dist-packages/basicsr/data/degradations.py", line 8, in <module> from torchvision.transforms.functional_tensor import rgb_to_grayscale ModuleNotFoundError: No module named 'torchvision.transforms.functional_tensor'

質問日時: 2024/03/17 09:51 質問者: オッピョルカテゴリ: オープンソース

ベストアンサー

1

0
CADシステムに図面番号を入力してドキュワークスに落とす作業を行っています。 CADシステムには1個

CADシステムに図面番号を入力してドキュワークスに落とす作業を行っています。 CADシステムには1個ずつしか図面番号を入力できないため図面の数が多いと時間がかかってしまいます。これをエクセルに必要なデ－タを入力し自動化できないかと考えています。 PowerAutoMateDesktopというPPAツールを使ってできないか検討中です。以下がこの作業の流れです。 1.エクセルファイルを開く(A1から下に順番に図面番号が記入してある) まずはA1をコピー 2.すでに開いているCADシステムのファイル名という項目をダブルクリック、その後そこに貼り付け 4.図面番号入力後、新規検索というボタンを左クリック 5.下の方にファイル名という項目がありそこに図面番号が表示されるのでここを右クリック 6.SXロードの項目が表示されるので左クリック 7.リボンに2D3D表示が出るので左クリック 8.ファイル範囲出力をクリック 9.プロッタ名ドキュワークスプリンターをクリック 10.用紙サイズ指定、倍率自動をクリック 11.印刷をクリック 12.エクセルファイルのA2をコピー 13.CADシステムのファイル名という項目をダブルクリック、その後そこに貼り付け以上が大まかな流れで、A列の図面番号がなくなるまでの繰り返し作業です。 A列の図面番号の数は毎回バラバラなのでA列の最終行を拾うという条件にする。毎日かなりの時間を要するので非常に困っています。どなたかご教示願います。

質問日時: 2024/03/16 23:38 質問者: Wrangleruk カテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
Excelについて

セルには入力規則があり、リストから選択して例えば”検査”等入力ができるのですが、その他で同じセルにリストからの選択ではなく”８”とか数値を入力しようとしてもできないのです。調べるとできないようなのですが、VBAコードでなんとか入力できるようになるみたいなのですが、私にはコードがかけないです。教えて頂けないでしょうか。

質問日時: 2024/03/16 20:07 質問者: Chiたんカテゴリ: Visual Basic（VBA）

ベストアンサー

1

0
IEを使わないでhtmlテキストを取得したい(VB.Net)

見たいサイトがIEに対応していないため、VB標準のWebbrowserが使えません。FireFoxなど他のブラウザでは見ることができるこのサイトをVB.Netを使って情報取得できるでしょうか。

質問日時: 2024/03/16 14:48 質問者: payphone カテゴリ: Visual Basic（VBA）

解決済

1

0
VBAで質問があります

ユーザーフォームで入力して転記はできているのですが転記時に少々遅い気がするのですがコードに問題ありますでしょうか？ Private Sub UserForm_Initialize() Me.TextBox1.Value = Format(Now(), "yyyy/m/d") End Sub Private Sub CommandButton1_Click() Dim I As Long Dim iCheck As Integer Dim r As Range Dim Ctrl As Control Set sht = ActiveSheet Set r = sht.UsedRange Cells(r.Row + r.Rows.Count, r.Column).End(xlDown).End(xlUp).Offset(1, 0).Select For I = 2 To 2000 If Cells(I, 2).Value = "" Then Exit For Next '連番 Cells(I, 1).Value = I - 1 '日付 Cells(I, 2).Value = Me.TextBox1.Value '分類 Cells(I, 3).Value = Me.ComboBox1.Value '品名 Cells(I, 4).Value = Me.ComboBox2.Value '個数 Cells(I, 5).Value = Me.TextBox2.Value '単価 Cells(I, 6).Value = Me.TextBox3.Value '合計 Cells(I, 7).Value = Me.TextBox2 * Me.TextBox3.Value '支払い方法 Cells(I, 8).Value = Me.ComboBox3.Value '備考 Cells(I, 9) = Me.TextBox4.Value Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.ComboBox2.SetFocus End Sub

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

ベストアンサー

5

0
WindowsのCapsLock（キャップスロック）って、何の意味があるんですか？

WindowsのCapsLock（キャップスロック）って、何の意味があるんですか？

質問日時: 2024/03/16 04:36 質問者: 安藤カテゴリ: C言語・C++・C#

ベストアンサー

10

0

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

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

質問する（無料）

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

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

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

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

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

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