回答数
気になる
-
近似した文字列を置換するエクセル関数またはVBAについて
ご教授をお願いいたします。 excelにて"あいうえお""かきくけこ"など列に異なる文字列を入力しています。新たに"123あいうえお""345かきくけこ”など頭に書き加えたものに置換する方法を教えて頂けましたらとのご相談です。 よろしくお願いいたします。
質問日時: 2024/01/30 08:18 質問者: mokatsu カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
Outlookにて既にウィドウ単体で開いているメールの本文をVBAにて取得する方法
表題の件、。既に1通、ウィンドウとして開いているメールの本文を エクセルへ書き出すマクロを考えています。 ご存じの方はイメージを教えてください
質問日時: 2024/01/30 01:08 質問者: aoyama-reiko カテゴリ: Visual Basic(VBA)
解決済
1
0
-
初心者javascript グーグルクロムのウィンドウを最大化から急に縮小するとテキストがはみ出す。
javascriptでhtmlのcontentのテキストが要素からはみ出したときに、フォントサイズを縮小・拡大して調節するプログラムを作ったのですが、google chromeのブラウザでしか試してないのですが、ウィンドウを最大化ボタンで大きくし、縮小ボタンを押してウィンドウの横幅を最小にして表示すると、プログラムが機能せず、テキストはみ出してしまいます。リロードすると、収まります。どうすれば、解決するのか分かりません。アドバイスください。 なお、ウィンドウの右をクリックで掴み、縮める時は機能します。 リンク: https://codepen.io/DEN-KEN/pen/VwRyQEP
質問日時: 2024/01/29 22:19 質問者: denpataro カテゴリ: JavaScript
ベストアンサー
1
0
-
Javascriptのhtml出力についてappendChildはどのような意味があるのでしょうか?
下記コードからフロートチャートを考えているのですが、.appendChildと.createElementの違いが分からず困っております。 下記コードのHTMLはどのようなコードになるのでしょうか? confirm_area.textContent = ''; var div; var child; child = document.createElement("h2"); child.appendChild(document.createTextNode('確認画面')); confirm_area.appendChild(child);// confirm_area の末尾に child を追加 div = document.createElement("div"); child.appendChild(document.createTextNode("名前:" + namae_value)); div.appendChild(child);// div の末尾に child を追加 confirm_area.appendChild(div);// confirm_area の末尾に div を追加 div = document.createElement("div"); child.appendChild(document.createTextNode("コメント:" + message_value)); div.appendChild(child);// div の末尾に child を追加 confirm_area.appendChild(div);// confirm_area の末尾に div を追加 div = document.createElement("div"); child = document.createElement("input");
質問日時: 2024/01/29 16:48 質問者: 初心者サイト作成 カテゴリ: JavaScript
ベストアンサー
2
0
-
PHPでのパスワード制限のセキュリティはどうなのか
PHPで下のようなパスワードでロックして見れないようにしてみたのですが、セキュリティは大丈夫なのでしょうか。BASIC認証と比べて教えていただきたいです。よろしくお願いいたします。 <?php if (isset($_POST['username']) && isset($_POST['password'])) { if ($_POST['username'] == '111' && $_POST['password'] == 'fdjeojo') { echo '<div id="name">111専用の内容</div>'; echo '<button onclick="location.href=\'\'">ログアウト</button>'; } else { echo 'パスワードかユーザー名が違います'; } } else { echo '<form method="post">'; echo 'ユーザー名:<input type="text" name="username"><br>'; echo 'パスワード:<input type="password" name="password"><br>'; echo '<input type="submit" value="ログイン">'; echo '</form>'; } ?>
ベストアンサー
2
0
-
エクセルVBAでデータ転記
VBAに詳しい方、データ転記について教えていただけますでしょうか。 スクリーンショットの通り、Book1とBook2のエクセルがあります。 Book2をコピーし、新しいブックBook3として保存します。Book1のA列が1~4に対するB列が1より大きいの時のみ、B列該当のデータをBook3に転記します。同様に、Book1のA列が101~105に対するB列が1より大きいの時のみ、B列該当のデータもBook3に転記します。 ※Book1とBook2に行を追加する可能性がある為、For~Next文で行番号を一行ずつ移動させることはやめたいです。 ご存知の方、よろしくお願いいたします!
質問日時: 2024/01/28 20:11 質問者: 勉強好きか カテゴリ: Visual Basic(VBA)
解決済
1
0
-
青い枠のみのHTML
ログインとか、検索とか フチなしの青い枠(窓)がありますが、 この枠(窓)のHTMLを教えてくれませんか? 言うまでもなく、ログイン等、テキス文字が 入っていても構いません。
質問日時: 2024/01/28 15:45 質問者: toufu-mental カテゴリ: HTML・CSS
ベストアンサー
4
0
-
強化学習の環境作成、AI。自動運転の学習のため、自由に道路環境を作る。どのライブラリーが良い?
強化学習の環境作成、AI。自動運転の学習のため、自由に道路環境を作りたいのですが、どのライブラリがいいですか。 Open AI Gymなどですか。 Unityですか。 詳しい方、教えてください。 自動運転普及のために、研究を行いたいです。
質問日時: 2024/01/27 22:03 質問者: godhappy カテゴリ: その他(プログラミング・Web制作)
解決済
2
0
-
列のどこをクリックしてもソートできるようにするには
いつもお世話になっています。 テーブルの先頭行(タイトル行)をクリックしたときにソートできるようにしていたのですが、行数が増えてきて先頭行をクリックするのがしんどくなってきたので、列中のどこをクリックしてもソートするサンプルコードをご教示ください。
ベストアンサー
7
0
-
プログラミング Java
CSV形式のファイル"numbers.csv"に、CSV形式で自然数が列挙されている。このCSVファイルを読み込み、「各行の最大値と最小値の差を求め、その合計(各行で求められた差をすべて合計する)」を出力せよ。なお、<各行の最大値と最小値を求める>メソッドcalculateDifferenceを作成し、その処理はメソッドにて行うようにせよ。(行の数と同じ回数メソッドを呼び出す) メソッドの引数:読み込んだ各行のデータ(String型) メソッドの戻り値:各行の最大値と最小値の差の値 このプログラミングを作成する問題について教えていただけるとありがたいです。 言語はJavaです。 "numbers.csv"は画像にあります。
質問日時: 2024/01/26 23:24 質問者: goodBriGht カテゴリ: Java
解決済
2
0
-
【VBA】カーソルのある行の1行目のセルをコピペし,最後にそのセルに戻る方法
Excel VBAのことで伺います。office365を使用しています。 以下のとおりマクロを作りましたが,次の動きをするマクロにしたいと思っています。 コピペ元のセル番地を格納する変数が必要だと思うのですが,どのようにそれを宣言すれば良いか等ご教示願います。(今の状態だと,常にB5セルにカーソルが移動して終了してしまいます) ① 「回答」シートにおいてカーソルのある行のA列の値を,B5セルにコピペ ② 「様式」シートの範囲指定した箇所を印刷 ③ 「回答」シートの①の動作のときにカーソルのあった行のA列のセル(要は,コピペ元のセル)に戻る。 以下 現状のコード ---------------------------------------------------------------------------------------------- Sub 印刷() Sheets("回答").Cells(Selection.Row, 1).Select Selection.Copy Sheets("回答").Range("B5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("様式").Select Application.CutCopyMode = False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Application.Goto Sheets("回答").Range("B5") End Sub
質問日時: 2024/01/26 16:48 質問者: qazxcvfr4 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
VBAの質問です、複数のテキストボックスに同じコメントを
目的としては管理番号の作成になります TextBox1に数桁の数字を入力します その数字の語尾にアンダーバーとカウント数を付け足そうと思ってます。(123456_1) 安易な考えで下記の使用ができれば別Boxでカウント数を入力すればOKかなと(;^_^A UserForm内でテキストボックスに入力したコメントを同じフォーム内の 別ボックスにも表示させたいのですがどのようなコード、又はプロパティで設定できますか? そもそもこのようなことができないのでしょうか? それかTextBox1に入力した数字にsheet転記時にカウント数を自動追加できるのでしょうか? TextBox1の転記先はD列、管理番号の転記先はK列になります
質問日時: 2024/01/26 09:37 質問者: kacky76 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
出発駅A、到着駅Bを選択すると、2.3㎞と170円と返るようにしたいです。
出発駅A、到着駅Bを選択すると、2.3㎞と170円と返るようにしたいです。 具体的には{ name:["A", "B"], distance: 1.5,between:1}に対して、{ between:1,fare:170 }と返るようにしたいです。 実装方法がわからないです。 また、これらをifで分岐させたいです。どうしたらいいのでしょうか。 <head> <meta charset="UTF-8"> <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script> <script> /** * distance : 区間距離(km) * name : 区間名 * price : 区間における乗車運賃 */ const price_table = [ { distance: 0, name: '見送り', price: { normal: 120, child: 60 } }, { distance: 3, name: '1区間', price: { normal: 150, child: 80 } }, ]; /** * name: '駅名' * distance: 次の駅までの距離 */ const stations = [ { name: 'A', distance: 1.5 }, { name: 'B', distance: 1.5 }, ]; </script> <script> $(function () { $(document).on('change', function () { var f = $('[name=from]').val(); var t = $('[name=to]').val(); // 何番目の駅かを探す let from_idx = stations.findIndex(station => station.name == f); let to_idx = stations.findIndex(station => station.name == t); // from, to が昇順になるようにする。 let from_to = [from_idx, to_idx].sort(); // どちらかが未入力の場合、もしくは駅名が見つからない場合は処理を受け付けないようにする。 if (from_to[0] < 0) { return; } // 駅間の距離を加算する。 let d = 0; for (let i = from_to[0]; i < from_to[1]; i++) { d += stations[i].distance; } // 距離の合計値による料金テーブルを探す const period = price_table.find(price => d <= price.distance); $('span[name=distance]').html(d); $('span[name=kukan]').html(period.name); $('span[name=price]').html(period.price.normal); }); }); </script> </head> <body> <div> 出発駅: <select name="from"> <option value="">--</option> <option value="A">A</option> <option value="B">B</option> </select> </div> <div> 到着駅略 </div> 距離:<span name="distance"></span>km<br /> 区間:<span name="kukan"></span><br /> 料金:<span name="price"></span>円 </body> </html> jsのプログラムサイトをいろいろ調べてみましたが、グッとくるものはなかったです。
質問日時: 2024/01/26 08:33 質問者: 福本英一 カテゴリ: JavaScript
ベストアンサー
1
0
-
LinuxカーネルのCFSで用いられているような
に色木は最も一般的な永続データ構造のひとつであり、関数型言語で特に価値がある。というのはなんでだとおもいますか??
質問日時: 2024/01/25 14:40 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
1
1
-
ラズベリーパイピコでのPch MOSFETの駆動の仕方
ラズベリーパイピコで、バッテリーの消費電力を削減するため、Pch MOSFETの MTP4835を使って3.3Vの負荷をON/OFFしようとしています。 画像のように回路を組みましたが、ONさせた場合は”D”の箇所で3.25V程度出力して 問題ないのですが、OFFさせようとラズベリーパイピコの25番pinをHiにしても ”D”の箇所で2.38V程度出力してしまい、電圧が落ち切りません。 どういった部分に問題があるのでしょうか?
質問日時: 2024/01/24 15:21 質問者: hitsujitati カテゴリ: その他(プログラミング・Web制作)
解決済
1
1
-
【IT導入補助金は個人事業主や中小企業が自社のホームページを開設しても貰えますか?】また
【IT導入補助金は個人事業主や中小企業が自社のホームページを開設しても貰えますか?】また幾ら貰えますか? IT導入補助金をもらった方教えてください。
質問日時: 2024/01/24 07:48 質問者: redminote11pro5G カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
1
-
pythonの条件分岐(if)
親子でpythonの学習中です。 下記のようなじゃんけんプログラムを作成しています。 結果が「あいこ」の場合にはエラーが出ませんが、それ以外のときにエラーとなります。 30行目でエラーとの事ですが、「あいこ」の時にはエラーにならないので、この30行目じゃなくて条件分岐に問題が有るのではないかと考えております。 色々と試してみましたが手詰まりとなりました。 お知恵を頂けたら幸いです。 <エラーメッセージから抜粋> print('あなたは' + str(hand) + 'を出したので' + result + 'です') NameError: name 'result' is not defined <現在のプログラムソース> # coding: UTF-8 print('じゃんけんを始めます') print('0=goo1=chok=paa') #自分の手 hand = input('0:goo 1:chok 2:paa を入力?') print('あなたの選んだ手は' + str(hand) + 'です.') #cpのて import random comH = random.randint(0,2) print('cpのては' + str(comH) + 'です') if hand == comH: result = 'あいこ' elif hand == '0': if comH == '1': result = '勝ち' elif comH == '2': result = '負け' elif hand == '1': if comH == '2': result = '勝ち' elif comH == '0': result = '負け' elif hand == '2': if comH == '0': result = '勝ち' elif comH == '1': result = '負け' print('コンピューターは' + str(comH) + 'を出しました') print('あなたは' + str(hand) + 'を出したので' + result + 'です')
質問日時: 2024/01/23 22:29 質問者: 88suihou88 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
5
1
-
ExcelVBAのFindFirstエラーについて
Set iCnd = uiAuto.CreatePropertyCondition(UIA_AutomationIdPropertyId, "addSerifTextBox") Set elmYukkuri_textbox = elmYukkuri_timeline.FindFirst(TreeScope_Subtree, iCnd) If elmYukkuri_textbox Is Nothing Then i = MessageBoxTimeoutA(0&, "addSerifTextBox" & Chr(13) & "がみつかりません", "FindFirstエラー", vbMsgBoxSetForeground, 0&, 10000) Exit Sub End If FindFirstエラーでExcelVBAマクロが実行できません。正しい値?を取得したいのですが、何をすれば良いのかが分かりません。Accessibility Insights for Windows で調べた値に書き換えたりもしましたが上手くいきません。正しい値?名前?を取得する方法が知りたいです。
質問日時: 2024/01/23 13:52 質問者: atasarrrrrrr カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
ベストアンサー
10
0
-
フォルダー内検索
Windows7_OS(元C*) ┗>a ┗>b ┗>c aa.xlsx 元Cドライブ にaフォルダー がありa内にbがありb内にcがあります。 cの中にaa.xlsx がありますが、元cドライブのところで、検索をかけると aa.xlsx が検索 できません。 aフォルダーで検索すると、aa.xlsxを検索します。 元cフォルダーで出来なくて、aフォルダーでできる・・? 検索は”すべてのサブフォルダー”を指定しています。 なぜだかわかりません。深すぎると検索できないのですか? win10
解決済
1
0
-
REGZAに接続できない(パソコン)
REGZAをプログラムで動かしたいと思い立ち、 githubで公開されていたプログラム(https://github.com/9SQ/regza-digest-auth/blob/main/README.md)を利用しようとしたところ、動きません・・・(´;ω;`) スマホアプリの「RZハイブリッドリモ」では動くんですが・・・ REGZAの機種はM550M型で無線でWIFIに接続しており、 またパソコンは有線、スマホは無線で接続しています。
質問日時: 2024/01/21 13:32 質問者: kenyskey カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
0
-
CSSでつくったメニューのアニメーションがうまく動かない・変えたい
このHTMLでは、Widthが500px以下の場合、チェックボックスにチェックが入れられたらアニメーションで<ul id="topnav">を表示するのですが、チェックボックスのチェックを外した時にもアニメーションで消えていくようにできません。アニメーションが始まる(表示される範囲)をチェックボックスより下にしたいです。どうしたらいのか教えていただきたいです。フルのHTMLも教えていただきたいです。よろしくお願いいたします。 <!DOCTYPE html> <html lang="ja"> <head> <meta charset="utf-8"> <title>Menu Example</title> <style> /* メニューボタン */ .menu-button { display: none; } /* 横幅が500px以下の場合にul要素を非表示にする */ @media only screen and (max-width: 500px) { #topnav { display: none; } .menu-button { display: block; } } /* メニューボタンをクリックしたらul要素を表示する */ @media only screen and (max-width: 500px) { .menu-button:checked ~ #topnav { display: block; animation: slide-down 0.5s ease-out; } } /* スライドダウンアニメーション */ @keyframes slide-down { 0% { transform: translateY(-100%); } 100% { transform: translateY(0); } } /* メニューボタンをクリックしたらul要素を非表示にする */ @media only screen and (max-width: 500px) { .menu-button:not(:checked) ~ #topnav { display: none; animation: slide-up 0.5s ease-out; } } /* スライドアップアニメーション */ @keyframes slide-up { 0% { transform: translateY(0); } 100% { transform: translateY(-100%); } } </style> </head> <body> <input type="checkbox" class="menu-button"> <ul id="topnav"> <li><a>Home</a></li> <li><a href="about">About</a></li> <li><a href="contact">Contact</a></li> </ul> </body> </html>
ベストアンサー
2
0
-
HTMLで作った時報アプリが動きません
HTMLとJavaScripで毎時59分55秒になったらjihou.mp3を再生するアプリをつくったのですが、59分55秒になっってもjihou.mp3は再生されませんでした。どうしてなのか教えていただきたいです。できればHTMLとJavaScriptも教えていただきたいです。よろしくお願いいたします。(以下HTML) <!DOCTYPE html> <html lang="ja"> <head> <meta charset="UTF-8"> <title>JavaScript Example</title> </head> <body> <span id="real-time"></span> <script> function playAudio() { var currentTime = new Date(); if (currentTime.getMinutes() == 59 && currentTime.getSeconds() == 55) { var audio = new Audio('jihou.mp3'); audio.play(); } } setInterval(playAudio, 1000); </script> </body> <script> function Time() { var realTime = new Date(); var hour = realTime.getHours(); var minutes = realTime.getMinutes(); var seconds = realTime.getSeconds(); var text = hour + ":" + minutes + ":" + seconds; document.getElementById("real-time").innerHTML = text; } setInterval('Time()',100); </script> </html>
質問日時: 2024/01/21 09:49 質問者: 優里さん カテゴリ: JavaScript
ベストアンサー
1
0
-
ホームページバナーを(画像が自動的に切り替わるスライダー)にした場合SEOに影響はありますか?
自社のホームページリニューアルを考えています。 その際、トップページの上部に見せたい画像があるので、スナイダーにしようかと考えています。 この場合、SEO的なデメリットなどはあるのでしょうか? 現在考えている、見せたいバナーは3つですが、 スナイダーを入れたことによって、サイトスピード(Webページを読み込む速さ)に影響を与えることはあるのでしょうか? お詳しい方ぜひ教えてください。
質問日時: 2024/01/20 08:08 質問者: toiu766gtt カテゴリ: SEO
ベストアンサー
1
0
-
マクロのエラー
d(i, 2) = Sheets(1).Range("J58") 上記を以下のAX12に変更 d(i, 2) = Sheets(1).Range("AX12") d(i, 2) = Sheets(2).Range("J58") 上記を上記を以下のAX12に変更 d(i, 2) = Sheets(2).Range("AX12") を変更したところ型が一致しませんと出て If Val(d(i, 2)) = 0 Then の部分が黄色くなってしまいます どこを直せばいいのでしょうか For i = 1 To cnt If Left(d(i, 1), 1) = "G" Then Sheets(1).Range("J5") = d(i, 1) d(i, 2) = Sheets(1).Range("AX12") Sheets(1).Range("J5") = "" End If Next For i = 1 To cnt If Left(d(i, 1), 1) = "T" Then Sheets(2).Range("J5") = d(i, 1) d(i, 2) = Sheets(2).Range("AX12") Sheets(2).Range("J5") = "" End If Next For i = 1 To cnt For j = 4 To 48 If Sheets("集計").Cells(j, 1) = d(i, 1) Then If Val(d(i, 2)) = 0 Then d(i, 2) = 0 Sheets("集計").Cells(j, ComboBox1 + 2) = d(i, 2) End If Next Next End Sub
質問日時: 2024/01/19 19:50 質問者: tokoro42811 カテゴリ: Visual Basic(VBA)
ベストアンサー
5
2
-
JavaScriptでページが更新されたときに./へ自動遷移するようにする方法を教えて
JavaScriptで、もしページが更新(F5やCtrl+Rなど)されたときに./へ自動遷移するようにする方法を教えていただきたいです。よろしくお願いいたします。昨日、beforeunloadとlocation.href = "//〇〇.com";で試したのですが、うまく行きませんでした。
質問日時: 2024/01/18 19:13 質問者: 優里さん カテゴリ: JavaScript
解決済
1
0
-
スマホ(android)のタッチパネル、指以外で反応させる方法ありますか?
なんらかの肉体接触、静電気反応という仕組みらしいですけど、体から離れた何かの物体で鍵盤アプリの長音を通低音として維持したいのですが。。
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
下記のマクロは指定フォルダ内にあるワイルドカード名のフォルダを削除できます。 対象フォルダが無い場合はエラーが表示されません「On Error Resume Next」 コードのワイルドカードの 「\*12345678*"」この部分の「12345678」を指定セル値に置き換えが出来る方法を教えてください。 指定セル値シート名「青紙表」セル値「R18」 以上となります。 現状のマクロ Sub フォルダ削除() On Error Resume Next Dim fso As Object Dim strPath As String Set fso = CreateObject("Scripting.FileSystemObject") strPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書\8\*12345678*" fso.DeleteFolder strPath, True Set fso = Nothing End Sub 以上です。 よろしくお願いいたします。
質問日時: 2024/01/18 15:48 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
htaccessを利用してurl正規化
人からhtaaccessを利用してurl正規化したほうがいいといわれたのですがやりかたがわかりません (;^_^A ワードプレスは自動挿入されるらしいですがexpressionwebとかいうの使ってます。 ソースいじったりもたまにしてるのでファイル作って基本のコードをコピペして張り付けたりアップすることくらいならできます。 今回はwwwありなし、httpsのありなしをすべて統一して1このページに集約させたいと思ってます。 1pずつ全部設定するのはかなり面倒です 短い文章でまとめて設定できますかね? 検索で調べるとhtaccessはサーバに負荷をかけるので避けたほうがいいという情報もありきになってますが、どうなんでしょ?
質問日時: 2024/01/18 15:15 質問者: takeyabeer カテゴリ: SEO
ベストアンサー
1
0
-
こういう問題分をよんだとき
ビット列に"1100"という並びがあればその最後のビットの出現時に1を出力する とよんだときに、ビットは左から入ると思いますか?右から入ると思いますか?私は0→00→000→1000→... のように遷移すると思ったんですけどみんなは逆だと思ってました。何が違いますか?
解決済
2
0
-
pythonの質問です。
1から100の数字を表示し、9の倍数の場合は横に9をつける。それに加えて、3の倍数のみ表示させ、さらに5以上の場合は5で割り切れる数のみ表示する方法を教えてください。 一つ一つのやり方は分かりますが、条件を複数加える方法が分かりません。
質問日時: 2024/01/18 02:34 質問者: 舞依 カテゴリ: C言語・C++・C#
解決済
5
0
-
マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定
マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定セル値シート名「青紙表」のセル値「R18」に表示されている、数字と同じ数字を含むフォルダをマクロ有効ブックが保存されているフォルダ内にコピーできます。 マクロを実行し、対象フォルダが作業フォルダ内にコピーされた後は コピー元のフォルダは不要になりますので コピー後に不要フォルダを削除出来る方法を教えてください。 例えば セルR18に「12345678」と表示されており 検索指定フォルダ先 「\\nas-sp01\share\確認部\■01_敷地照会回答書\8」内に 「ERI12345678(回答)テスト」のフォルダがあると 指定セル値「12345678」とフォルダ名の数字「12345678」とが一致いますので 「ERI12345678(回答)テスト」が作業フォルダにコピーされます。 コピー後は「\\nas-sp01\share\確認部\■01_敷地照会回答書\8」内にあるコピー元の「ERI12345678(回答)テスト」が不要になりますので、削除したいのですが このマクロに追加のコードで削除出来る方法を教えてください。 現状のマクロ Sub 行政回答フォルダ確認() Dim i As Long Dim FSO As Object Dim strKeyword As String Dim strFolderPath As String, strFolderName As String Dim arrMoveFolders As Variant Dim strOriginPath As String, strDestPath As String If MsgBox("フォルダを検索しますか", vbOKCancel) <> vbOK Then Exit Sub Set FSO = CreateObject("Scripting.FileSystemObject") strKeyword = CStr(Sheets("青紙表").Range("R18").Value) If strKeyword = "" Then MsgBox ("キーワードが空白です"): Exit Sub strOriginPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書" strDestPath = ThisWorkbook.Path If Right(strDestPath, 1) = "\" Then strDestPath = Left(strDestPath, Len(strDestPath) - Len("\")) ReDim arrMoveFolders(0 To 1, 0 To 0) For i = 0 To 9 strFolderPath = strOriginPath & "\" & i strFolderName = Dir(strFolderPath & "\*" & strKeyword & "*", vbDirectory) Do Until strFolderName = "" If Replace(strFolderName, ".", "") <> "" Then If arrMoveFolders(0, 0) <> Empty Then ReDim Preserve arrMoveFolders(UBound(arrMoveFolders, 1), UBound(arrMoveFolders, 2) + 1) arrMoveFolders(0, UBound(arrMoveFolders, 2)) = strFolderPath & "\" & strFolderName arrMoveFolders(1, UBound(arrMoveFolders, 2)) = strFolderName strFolderName = Dir End If Loop Next If arrMoveFolders(0, 0) = Empty Then MsgBox "該当フォルダがありません" Exit Sub Else If MsgBox("該当フォルダがありました、フォルダを移動しますか", vbOKCancel) <> vbOK Then Exit Sub End If For i = 0 To UBound(arrMoveFolders, 2) FSO.CopyFolder arrMoveFolders(0, i), strDestPath & "\" & arrMoveFolders(1, i) Next End Sub 以上となります。よろしくお願いいたします。
質問日時: 2024/01/17 17:50 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
6
0
-
GASに文字列として関数を入れるとエラーがでる
GASでスプレッドシートに関数を自動で挿入する関数を作ってます。(関数で関数を挿入) しかし、”で囲んで関数を文字列として入力する(”=)
質問日時: 2024/01/17 17:13 質問者: むろ-初心者っぽい人- カテゴリ: JavaScript
解決済
3
0
-
列の順番を入れ替えて吐き出
下記のコードで吐き出すときに 列の順番を入れ替えて吐き出すことは可能でしょうか Dim x x = Range("A1").CurrentRegion.Value Range("G1").Resize(UBound(x, 1), UBound(x, 2)) = x
質問日時: 2024/01/17 15:09 質問者: りんごプリン カテゴリ: Visual Basic(VBA)
ベストアンサー
4
0
-
vbaでxmlからNodeListでデータがない時、空欄で取得する方法
<?xml version="1.0" encoding="utf-8"?> <customer> <customer_no>123456</customer_no> <last_name>山田</last_name> <first_name>太郎</first_name> </customer> <customer> <customer_no>154653</customer_no> <last_name>山田</last_name> </customer> 上記のようなxmlから、customer_no、last_name、first_nameをNodeListでEXCELに取得しております。 2番目のレコードにfirst_nameのデータがないので、first_nameというタグもありません。 NodeListでEXCELにはきだすと、データがない箇所は詰めて取得されるのでずれてしまいます。 データがない場合は空欄で取得させたいです。 どなか教えていただけますでしょうか?
質問日時: 2024/01/17 13:33 質問者: アヤスカル1213 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
下記のマクロは以前教えて頂いたマクロで マクロを実行すると 指定フォルダ内のサブフォルダ「0」~「9」までのフォルダに保存されている PDFファイル名を半角英数字8文字に変更できます。 例えば 「ABC12345678」を「12345678」に変更 しかし、稀にファイル名が 「3-46(ABC-24000760).pdf や 「(ABC-24000760).pdf」などなど 色々な文字の場合があります。 「3-46(ABC-24000760).pdfの場合でも「24000760」に 「(ABC-24000760).pdf」の場合でも「24000760」にファイル名を変更出来る方法を教えてください。 変更前のファイル名が、必ず連続した、半角英数字8文字で 変更後も 必ず連続した、半角英数字8文字(変更前と同じ数字)となるようにお願いいたします。 現状のマクロ Sub 行政回答ファイル名変更() Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject") Dim i As Long Dim strFolderName As String Dim arrFolderPaths As Variant Dim strFileName As String Dim strNewFileName As String Dim strFullPath As String Dim strNewFullPath As String Const strFileHeader As String = "*ERI" Const strParentFolderPath As String = "\\nas-sp01\share\確認部\■01_敷地照会回答書" ReDim arrFolderPaths(0 To 0) strFolderName = Dir(strParentFolderPath & "\*", vbDirectory) Do Until strFolderName = "" If Replace(strFolderName, ".", "") <> "" Then If GetAttr(strParentFolderPath & "\" & strFolderName) And vbDirectory Then ReDim Preserve arrFolderPaths(UBound(arrFolderPaths) + 1) arrFolderPaths(UBound(arrFolderPaths)) = strParentFolderPath & "\" & strFolderName End If End If strFolderName = Dir Loop For i = 1 To UBound(arrFolderPaths) strFileName = Dir(arrFolderPaths(i) & "\*.pdf") Do Until strFileName = "" If StrConv(strFileName, vbNarrow) Like strFileHeader & "*" & ".pdf" Then strNewFileName = newName(strFileName) If strNewFileName <> "" Then strFullPath = arrFolderPaths(i) & "\" & strFileName strNewFullPath = arrFolderPaths(i) & "\" & strNewFileName If FSO.FileExists(strNewFullPath) Then Kill strFullPath Else Name strFullPath As strNewFullPath End If End If End If strFileName = Dir Loop Next End Sub Function newName(name_org As String) As String Dim i As Long For i = 1 To Len(name_org) If Mid(name_org, i, 1) Like "[0-9]" Then newName = Mid(name_org, i, 8) & ".pdf" Exit Function End If Next End Function 以上となります。よろしくお願いいたします。
質問日時: 2024/01/16 16:33 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
サーチコンソールって分析できて当たり前?
以前じもとのネット詳しい人と話したとき他社のサーチコンソールを見せられ こんな風に分析しますといった説明を受けました。 自宅戻ってみてみましたが、何をどう学習したらいいのかよくわかりません(;^_^A 今はseoコンサルタントに課金してアドバイスもらってますが、 彼らも見るようです。 自営業者とかもサーチコンソール見れて当たり前で自分で分析できて当たり前なんでしょうか? それとも素人でも見れるが、高度な分析はプロじゃないとダメなもの?なんでしょうか
質問日時: 2024/01/16 14:30 質問者: takeyabeer カテゴリ: SEO
ベストアンサー
2
0
-
エクセルのマクロについて教えてください。
下記のマクロは先日教えて頂いたマクロで、マクロを実行すると指定セル値に該当するサブフォルダ名がマクロ設定ブックと同じフォルダ内に移動できます。 このマクロを下記の内容に変更出来る方法を教えてください。 指定セル値「R18」に表示されている数字とサブフォルダ名の数字とが一致し、 メッセージボックスで「該当フォルダがありました、フォルダを移動しますか」と表示され、「OK」をクリックすると「ダイアログが開き、自身で指定したフォルダ内に移動できるように変更出来る方法を教えてください。 現状のマクロ Sub Macro1() Dim i As Long Dim strKeyword As String Dim strFolderPath As String, strFolderName As String Dim arrMoveFolders As Variant Dim strOriginPath As String, strDestPath As String strKeyword = CStr(Sheets("青紙表").Range("R18").Value) If strKeyword = "" Then MsgBox ("キーワードが空白です"): Exit Sub If MsgBox("フォルダを検索しますか", vbOKCancel) <> vbOK Then Exit Sub Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") strOriginPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書" strDestPath = ThisWorkbook.Path If Right(strDestPath, 1) = "\" Then strDestPath = Left(strDestPath, Len(strDestPath) - Len("\")) ReDim arrMoveFolders(0 To 1, 0 To 0) For i = 0 To 9 strFolderPath = strOriginPath & "\" & i On Error Resume Next strFolderName = Dir(strFolderPath & "\*" & strKeyword & "*", vbDirectory) If Err.Number <> 0 Then MsgBox "エラーが発生しました" & vbCrLf _ & strFolderPath & "\*" & strKeyword & vbCrLf _ & Err.Description, vbExclamation Exit Sub End If Do Until strFolderName = "" If Replace(strFolderName, ".", "") <> "" Then If arrMoveFolders(0, 0) <> Empty Then ReDim Preserve arrMoveFolders(UBound(arrMoveFolders, 1), UBound(arrMoveFolders, 2) + 1) arrMoveFolders(0, UBound(arrMoveFolders, 2)) = strFolderPath & "\" & strFolderName arrMoveFolders(1, UBound(arrMoveFolders, 2)) = strFolderName strFolderName = Dir End If Loop Next If arrMoveFolders(0, 0) = Empty Then MsgBox "該当フォルダがありません" Exit Sub Else If MsgBox("該当フォルダがありました、フォルダを移動しますか", vbOKCancel) <> vbOK Then Exit Sub End If Dim objWSH As Object Set objWSH = CreateObject("WScript.Shell") Dim psCmd As String For i = 0 To UBound(arrMoveFolders, 2) psCmd = "Move-Item " & arrMoveFolders(0, i) & " " & strDestPath & "\" & arrMoveFolders(1, i) objWSH.Run "powershell -NoLogo -ExecutionPolicy RemoteSigned -Command " & psCmd, 0, True Next End Sub 以上となります。よろしくお願いいたします。
質問日時: 2024/01/16 10:30 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
excelのVBAで画像の動作をさせるため、プログラムを教えてください。
添付した画像のような表を作成しています。 ・B2列に名前を入力すると、その隣のC列2列には入力された日付を表示させる ・B2列の入力された名前を消すと、その隣のC列のセルの日付も消える 同じように、 ・F2列に名前を入力すると、その隣のG列2列に入力された日付を表示させる ・F2列の入力された名前を消すと、その隣のG列のセルの日付も消える この場合のプログラムを教えていただきたいです。 お忙しいところ恐縮ですがよろしくお願いいたします。
質問日時: 2024/01/15 19:24 質問者: ぶんぶんぶんぶんぶんぶんぶん カテゴリ: Visual Basic(VBA)
解決済
5
0
-
デジタルブックを自分のウェブサイトに設置する方法を教えて
https://www.mukogawa-u.ac.jp/~syusyoku/digitalbook/index.html このようなEBookを自分のウェブサイトに設置する方法を教えていただきたいです。よろしくお願いいたします。
解決済
2
0
-
C言語 列挙型(enum型)変数について
C言語初学者です 列挙型の変数が一体どんなものなのかよくわかりません 列挙型の変数を宣言して、その変数に代入するとき、 enum goo{ zero = 0, one, two }; enum goo num = zero; のような感じで書いてあるのですが、この変数の宣言を int num = 0; としても同じだし、また、列挙型の変数への代入は列挙型の定数(zero, one...)を使用せず、 enum goo num = 10; と書いても、実際は int num = 10; と変わらないと考えてよいのでしょうか? つまり結局、列挙型の変数はint型変数と変わりないということでしょうか?
質問日時: 2024/01/15 14:20 質問者: 0X4B_39 カテゴリ: C言語・C++・C#
ベストアンサー
7
0
-
エクセルのマクロについて教えてください。
下記のマクロは以前教えて頂いたマクロを少し変更したマクロです。 マクロを実行するとマクロを設定しているブックのサブフォルダ内にある ファイル名「前青紙.xlsx」が開きます。 以前のマクロは Sub 前青紙を開く() On Error Resume Next Workbooks.Open FileName:=ThisWorkbook.Path & "\前審査(フタット用)\前青紙.xlsx" End Sub となっており、サブフォルダ名を直接「\前審査(フラット用)\」と指定しておりましたが 「(フラット用)」の部分が物件により変更になりますので 変更マクロ Sub 前青紙を開く() On Error Resume Next Workbooks.Open FileName:=ThisWorkbook.Path & "\前審査*\前青紙.xlsx" End Sub 「\前審査*\」を変更をしましたが、 マクロが実行できませんでした。 サブフォルダ先をワイルドカードで 「\前審査*\」として マクロを実行できる方法を教えてください。 よろしくお願いいたします。
質問日時: 2024/01/15 13:31 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
下記のマクロは先日教えて頂いたマクロで 指定セル値の数字が該当した場合に移動元のフォルダが作業ブックに移動できるマクロになっておりますが、 移動元のフォルダ指定のコードが 「strOriginPath = "C:\Users\160931\Desktop\新しいフォルダ\■01_敷地照会回答書"」の場合は上手くマクロが実行されますが 「strOriginPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書"」の場合にはエラー表示が出てしまい、 コードの 「FSO.GetFolder(arrMoveFolders(0, i)).Move strDestPath & "\" & arrMoveFolders(1, i)」部分が黄色くなりマクロが実行できません。 解決方法を教えてください。 現状のマクロ Sub 行政回答フォルダ確認() Dim i As Long Dim FSO As Object Dim strKeyword As String Dim strFolderPath As String, strFolderName As String Dim arrMoveFolders As Variant Dim strOriginPath As String, strDestPath As String If MsgBox("フォルダを検索しますか", vbOKCancel) <> vbOK Then Exit Sub Set FSO = CreateObject("Scripting.FileSystemObject") strKeyword = CStr(Sheets("青紙表").Range("R18").Value) strOriginPath = "\\nas-sp01\share\確認部\■01_敷地照会回答書" strDestPath = ThisWorkbook.Path If Right(strDestPath, 1) = "\" Then strDestPath = Left(strDestPath, Len(strDestPath) - Len("\")) ReDim arrMoveFolders(0 To 1, 0 To 0) For i = 0 To 9 strFolderPath = strOriginPath & "\" & i strFolderName = Dir(strFolderPath & "\*" & strKeyword & "*", vbDirectory) Do Until strFolderName = "" If Replace(strFolderName, ".", "") <> "" Then If arrMoveFolders(0, 0) <> Empty Then ReDim Preserve arrMoveFolders(UBound(arrMoveFolders, 1), UBound(arrMoveFolders, 2) + 1) arrMoveFolders(0, UBound(arrMoveFolders, 2)) = strFolderPath & "\" & strFolderName arrMoveFolders(1, UBound(arrMoveFolders, 2)) = strFolderName strFolderName = Dir End If Loop Next If arrMoveFolders(0, 0) = Empty Then MsgBox "該当フォルダがありません" Exit Sub Else If MsgBox("該当フォルダがありました、フォルダを移動しますか", vbOKCancel) <> vbOK Then Exit Sub End If For i = 0 To UBound(arrMoveFolders, 2) FSO.GetFolder(arrMoveFolders(0, i)).Move strDestPath & "\" & arrMoveFolders(1, i) Next End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/01/15 10:05 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
どなたかこのプログラミングを完成させて欲しいです。 ヒントはこちらです↓ 青色:ゲームプログラムのル
どなたかこのプログラミングを完成させて欲しいです。 ヒントはこちらです↓ 青色:ゲームプログラムのループ。 ここから出ればゲーム終了。 橙色:個々のゲームのループ。これは無限ループ。 赤色:ここに適切なコードを記述する。赤色は無限ループ内にあるので、脱出するには"break”を利用する。 ヒントも何度も調べましたが何1つ進歩しなくて困っています。よろしくお願いします。
質問日時: 2024/01/14 21:09 質問者: くまーーーーー。 カテゴリ: C言語・C++・C#
解決済
1
0
-
そのまま使っただけなのに・・・python
https://github.com/9SQ/regza-digest-auth/blob/main/README.md このプログラムをIPアドレスとMACアドレスだけ変えてそのまま実行してみましたが、実行できません。 調べてみるとCryptoがCryptodomeに移行したとのことだったのでCryptoをCryptodomeに置き換えてみたりしても、やっぱり動きません。 何が原因でしょうか? 下はエラーコードCryptodomeに置き換えて実行した際の出力です。(個人情報の部分は置き換えてあります。 ) Traceback (most recent call last): File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\connection.py", line 174, in _new_conn conn = connection.create_connection( File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\util\connection.py", line 95, in create_connection raise err File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\util\connection.py", line 85, in create_connection sock.connect(sa) TimeoutError: [WinError 10060] 接続済みの呼び出し先が一定の時間を過ぎても正しく応答しなかったため、接続できませんでした 。または接続済みのホストが応答しなかったため、確立された接続は失敗しました。 During handling of the above exception, another exception occurred: Traceback (most recent call last): File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\connectionpool.py", line 703, in urlopen httplib_response = self._make_request( File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\connectionpool.py", line 398, in _make_request conn.request(method, url, **httplib_request_kw) File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\connection.py", line 239, in request super(HTTPConnection, self).request(method, url, body=body, headers=headers) File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\http\client.py", line 1282, in request self._send_request(method, url, body, headers, encode_chunked) File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\http\client.py", line 1328, in _send_request self.endheaders(body, encode_chunked=encode_chunked) File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\http\client.py", line 1277, in endheaders self._send_output(message_body, encode_chunked=encode_chunked) File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\http\client.py", line 1037, in _send_output self.send(msg) File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\http\client.py", line 975, in send self.connect() File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\connection.py", line 205, in connect conn = self._new_conn() File "C:\Users\(ユーザー名)\AppData\Local\Programs\Python\Python310\lib\site-packages\urllib3\connection.py", line 179, in _new_conn raise ConnectTimeoutError( urllib3.exceptions.ConnectTimeoutError: (<urllib3.connection.HTTPConnection object at 0x000002BCB28B13F0>, 'Connection to (IPアドレス) timed out. (connect timeout=None)') ・・・(補足に続く)
質問日時: 2024/01/14 19:48 質問者: kenyskey カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
0
-
プログラミングについての質問です。 #include <stdio.h> #include <std
プログラミングについての質問です。 #include <stdio.h> #include <stdlib.h> #include <time.h> int main void §{ int i; int num; srand(time(NULL)); printf("RAND _ MAX=%dIn",RAND_MAX); /* random number from 1 to 100 */ for(i = 0; i < 10 ; i ++ { hum=rand()%100 + 1; printf("cycle%d random number = %d\n"i+1,num) ; } } これでエラーが出てしまいます。間違ってるところがもしあれば教えて欲しいです。よろしくお願いします。
質問日時: 2024/01/14 18:01 質問者: くまーーーーー。 カテゴリ: C言語・C++・C#
解決済
3
0
-
ホームページのURLをコピーしてエクセルのシートに張り付けるとURLの文字が変わる場合があるのはナゼ
・ホームページのURLをコピーしてエクセルのシートに張り付けるとURLの文字が変わる場合があるのはナゼですか。 変わる場合は貼り付け後のURLの文字に「%」が多数付き文字数がとても長くなります。 ↓イメージ ’https://bkgr.sharepoint.com/%A767-F1%7D&file=%E2%98%85%E7%89%B9%E6%B3% ・また、変わる場合と変わらない場合は何が違うか教えて下さい。
ベストアンサー
1
0
-
Pythonを勉強中で、初歩的ですが教えてください。 今後の目標としてPythonを使用した社内ツー
Pythonを勉強中で、初歩的ですが教えてください。 今後の目標としてPythonを使用した社内ツール開発をし、社内の人にもファイルを共有→社内ユーザーがファイルをダブルクリックしたら実行できるようなPythonでの効率化ツール開発したいと考えています。 一点懸念点として、Pythonのライブラリのバージョンが、結構アップデートされたりすると聞きました。 それにより開発したPythonコードでアップデート前のコードを使用していて、実行時エラーが発生するなったする可能性はあるのでしょうか。 それを阻止する方法はありますか? 外部環境による環境に変化によるコード修正はできるだけ阻止したいと考えており、知見がある方教えてください。
質問日時: 2024/01/14 11:07 質問者: mimi1587 カテゴリ: その他(プログラミング・Web制作)
解決済
7
1
-
pythonのコードについてご教示ください
ネットバンキングのログインする際のテキストボックスにワンタイムパスワード用のカードリーダーを使用してそのテキストボックスに入力した値を取得したいのですがうまくいきません。 テキストボックスになっている要素が下記です。 <input type="password" size="23" class="number-m otpinput" name="otp"> Selectorをコピーしたものが下記です body > form > div > table:nth-child(1) > tbody > tr:nth-child(2) > td.otpbg3 > table > tbody > tr > td > table > tbody > tr:nth-child(2) > td > table > tbody > tr > td:nth-child(2) > input JSパスのコピーが下記です document.querySelector("body > form > div > table:nth-child(1) > tbody > tr:nth-child(2) > td.otpbg3 > table > tbody > tr > td > table > tbody > tr:nth-child(2) > td > table > tbody > tr > td:nth-child(2) > input") ちなみに要素の画面で見ると、input type="password" のinputに下のところに赤い波線のようなラインが入っています。 valueがないので、.get_attribute("value")が使えないかと思います。この場合のヒントを是非ともどなかた教えてください。どうぞよろしくお願い致します。
ベストアンサー
1
0
-
だいがくの電し書籍で
PDFにダウンロードしたんですけど、いちいち自分の学籍番号をpdfファイルのパスワードに入れなきゃ見れません。また利用規約にパスワードを解除したりしないでくださいってかいてあるんですけどまいかい勉強する時に入れるのがすごい面倒くさいです。流布とかしなければかいじょしてもばれないとおもいますか?自分で見るだけです。
質問日時: 2024/01/13 20:55 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
2
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
-
大麻の使用罪がなかった理由や法改正での変更点、他国との違いを弁護士が解説
ドイツで2024年4月に大麻が合法化され、その2ヶ月後にサッカーEURO2024が行われた。その際、ドイツ警察は大会運営における治安維持の一つの方針として「アルコールを飲んでいるグループと、大麻を吸っているグループ...
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【追加質問】レイアウトが異なる別...
-
fortran write文について マチンの...
-
XMLサイトマップの登録方法がわかり...
-
エクセルに張り付けた写真のファイ...
-
htmlの文字が縦書きになる
-
エクセルのVBAコードについて教えて...
-
jdk17.06のインストーラーが起動しない
-
エクセルvbaの対象セルに色をつける...
-
PDFを(htmlのように)無限に縦長に...
-
テーブルの行を折りたたみたいので...
-
Excel VBA マクロ あるフォルダー内...
-
XMLを作成してもタグしか表示されない
-
vba クリップボードクリアについて...
-
css初心者 フレックスボックスの適...
-
Trees掲示板CGI(CGI-Resque氏作)...
-
ラズベリーパイ初心者です。 ラズパ...
-
キヤノン アソビカメラ iNSPiC REC...
-
公文書のxmlファイルの開き方が分か...
-
aspxをhtmlに変換する方法について
-
【ExcelVBA】インデックスが有効範...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
vba クリップボードクリアについて...
-
エクセルに張り付けた写真のファイ...
-
iPhoneで HTMLファイルを閲覧
-
エクセルで集計したい。
-
プログラミングについて プログラミ...
-
テーブルの行を折りたたみたいので...
-
バッチファイル 特定ウインドウの最...
-
PDFを(htmlのように)無限に縦長に...
-
VBA 別ブックからコピペしたいので...
-
XMLを作成してもタグしか表示されない
-
Google ColaboでGUI作成
-
AIのプログラムについて教えてください
-
プログラミングを学ぼうと思います...
-
VBA 別ブックから条件に合うものを...
-
phpのファイルがブラウザで開かない
-
プログラミングの進学について
-
返信機能のツリー構造の深さをライ...
-
vba 別ブックに転記
-
onedrive にexcelファイルをアップ...
おすすめ情報