回答数
気になる
-
Range.RemoveDuplicates メソッド
Excelの Range.RemoveDuplicates メソッドの Columns オプションの指定方法について、ご相談させてください。 次の構文は、正しく処理できます。 ActiveSheet.Range("$A$1:$C$10").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes Columns オプションを動的に変更したく、次のように書き換えたのですが「プロシジャの呼出、または引数が不正です」となり、正しく処理されません。 Dim ary As Variant ary = Array(1, 2, 3) ActiveSheet.Range("$A$1:$C$10").RemoveDuplicates Columns:=ary, Header:=xlYes 正しく動作させるためには、どのように指定したら良いでしょうか。
質問日時: 2023/10/21 13:50 質問者: ママチャリ カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
バッチファイルについて
いま、バッチファイルについて勉強しています。 コピーコマンド「copy」について、プレースホルダ―「%」を使った動きを確認したかったのですが上手く行かず、ご教授ください。 現在同じ階層(フォルダー)に ・コマンドプロンプト ・test1.txt ・copytest.bat があり、この「copytest.bat」は以下のプログラムにして上手く動作しています。 copy test1.txt new_test1.txt 次に同じ階層に「copytest2.bat」として以下のプログラムを組んだのですが、 copy %1 new%1 コマンドプロンプトで実行すると「指定されたファイルが見つかりません。」と出てしまいます。 気になる点がございましたらご指摘頂けますと幸いです よろしくお願い致します。
質問日時: 2023/10/20 16:08 質問者: Gin-Buck カテゴリ: その他(プログラミング・Web制作)
解決済
2
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると指定フォルダ内にワイルドカードで指定した フォルダの有無を検索し、メッセージが表示されます。 このマクロを ワイルドカードの数字の部分を 例えば「12345678-6_」 マクロを設定しているブックのシート名「番号」のセル値「C1:C6」に記載のある番号 に変更して該当フォルダの有無を検索できるように変更する方法を教えてください。 該当フォルダが複数あり場合は、メッセージボックスにその旨を表示出来るようにしたいのですが、 よろしくお願いいたします。 一つの例ですが 画像のパターンですと メッセージボックスに「12345678-6_北海 太郎」と「123456789-1_北海 花子」の2つを表示です。 マクロ Sub フォルダ検索() Dim 検索フォルダパス As String 検索フォルダパス = "C:\Users\160931\Desktop\10月16日\テスト" Dim 該当フォルダパス As String Dim dir結果値 As String dir結果値 = Dir(検索フォルダパス & "\12345678-6_*", vbDirectory) Do While dir結果値 <> "" Dim dir結果パス As String dir結果パス = 検索フォルダパス & "\" & dir結果値 If GetAttr(dir結果パス) And vbDirectory Then 該当フォルダパス = dir結果パス Exit Do End If dir結果値 = Dir() Loop If 該当フォルダパス <> "" Then MsgBox "該当フォルダのパス:" & 該当フォルダパス End If End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2023/10/19 17:13 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
WordPressで画面還移なしの掲示板を作成する方法が分かりませんアドバイスお願い致します。
Q&A掲示板を画面還移する形で作成していたのですが、質問画面を作成後の回答画面作成中に入力→確認→サーバーに送信する機能を還移なしで行う形にしたいと考え作り直しております。 回答画面の入力画面の送信ボタンを押した際に入力フォームを非表示にして、確認画面を表示させて非同期通信を行いサーバーに送信させることは可能でしょうか? 入力→確認と確認→サーバーに送信で2度非同期通信が必要になるのではないかと懸念しております。
ベストアンサー
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを設定しております。 マクロを実行するとダイアログが表示されて、選択したフォルダ内に 「検査時必要図書(正本)」がコピー出来るように設定しておりますが。 マクロを実行しても、指定フォルダがコピーされません。 この問題の解決方法を教えてください。 よろしくお願いいたします。 マクロ Sub フォルダコピー() Dim Dst As Variant With Application.FileDialog(msoFileDialogFolderPicker) If .Show = False Then Exit Sub Dst = .SelectedItems(1) End With Dim FSO As Object Dim Adr As String Set FSO = CreateObject("Scripting.FileSystemObject") Adr = ThisWorkbook.Path FSO.CopyFolder Adr & "\検査時必要図書(正本)", Dst End Sub
質問日時: 2023/10/19 09:27 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
マクロの修正方法の質問です。
添付写真のように、B列にフィルターをかけて、 みかんだけのフィルターで印刷 りんごだけのフィルターで印刷 以下繰り返し と、フィルター上で選べるものを全て自動で印刷するようなマクロの作り方を教えていただきました。 このB列指定のフィルターを C列のフィルターに変更して、 長野だけのフィルターで印刷 山梨だけのフィルターで印刷 以下繰り返し と、するにはどこを直せばよろしいでしょうか? 数百件あるので、教えていただけると助かります。 どうぞ宜しくお願い致します。 マクロは以下です。 Sub PrintFilteredData() Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim filterRange As Range Dim uniqueItems As Collection Dim item As Variant Set ws = ThisWorkbook.Sheets("a") Set rng = ws.Range("A1").CurrentRegion Set filterRange = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count) Set uniqueItems = New Collection On Error Resume Next For Each cell In filterRange.Columns(2).Cells If cell.Value <> "" Then uniqueItems.Add cell.Value, CStr(cell.Value) End If Next cell On Error GoTo 0 For Each item In uniqueItems ws.AutoFilterMode = False filterRange.AutoFilter Field:=2, Criteria1:=item ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ws.AutoFilterMode = False Next item End Sub
質問日時: 2023/10/19 09:11 質問者: asdfxz カテゴリ: Visual Basic(VBA)
ベストアンサー
1
1
-
リストボックス複数選択抽出方法
いつもお世話になっております 下記の部分を複数選択したいのですが どうしたよろしいでしょうか If r.Value = ListBox1.List(ListBox1.ListIndex) Then A列 担当 B列 名前 C列 性別 Private Sub UserForm_initialize() With ListBox1 .AddItem "工藤" .AddItem "加藤" .AddItem "遠藤" .AddItem "佐藤" .Font.Size = 14 .MultiSelect = fmMultiSelectMulti End With End Sub Private Sub CommandButton1_Click() Dim dic As Object Dim r As Range, rr As Range Dim key1, key2, i As Integer Set dic = CreateObject("Scripting.Dictionary") For Each r In Range("A2", Cells(Rows.Count, "A").End(xlUp)) If r.Value = ListBox1.List(ListBox1.ListIndex) Then If Not dic.exists(r.Value) Then dic.Add r.Value, _ CreateObject("Scripting.Dictionary") If Not dic(r.Value).exists(r.Offset(, 1).Value) Then _ dic(r.Value).Add r.Offset(, 1).Value, _ CreateObject("System.Collections.ArrayList") dic(r.Value)(r.Offset(, 1).Value).Add (r.Offset(, 2).Value) End If Next Set rr = Range("F2") Range("F:H").Clear For Each key1 In dic.keys rr.Value = key1 For Each key2 In dic(key1).keys Set rr = rr.Offset(1) rr.Offset(, 1).Value = key2 Set rr = rr.Offset(1) For i = 0 To dic(key1)(key2).Count - 1 rr.Offset(i, 2).Value = dic(key1)(key2)(i) Next Set rr = rr.Offset(dic(key1)(key2).Count - 1) Next Set rr = rr.Offset(1) Next Set dic = Nothing End Sub
質問日時: 2023/10/18 17:40 質問者: りんごプリン カテゴリ: Visual Basic(VBA)
ベストアンサー
6
1
-
<strong>は、重要・緊急・注意・警告ですか?
<strong>は、重要・緊急・注意・警告ですか?
質問日時: 2023/10/18 14:47 質問者: Wohinfahrensie カテゴリ: SEO
ベストアンサー
3
0
-
エクセルのマクロについて教えてください。
作業ブックのシートに番号があり、その番号が該当したフォルダを指定フォルダ内に移動できるマクロを教えてください。 作業ブック名「作業管理(最新).xlsm」のシート名「物件管理」セル値「W5:W54」までに番号があります。(ただし日によっては「W5:W54」のセルにすべて数字が表示はされませんが、始まりは「W5」になります。 この数字が該当するフォルダ名を指定フォルダ内に移動をしたいと思います。 移動元のフォルダ「\\nas-sp01\share\確認部\電子申請 関連\2.審査中\◆未審査物件◆」 移動先のフォルダ「\\nas-sp01\share\確認部\電子申請 関連\2.審査中\北海」 です。 私の希望として、マクロを実行し、 1.移動元のフォルダ内に該当フォルダが無い場合は メッセージボックスに「該当フォルダはありません」と表示され、「OK」をクリックするとマクロ終了 2.移動元のフォルダ内に該当フォルダがある場合はは メッセージボックスに「該当フォルダがありました」と表示され、「OK」をクリックするとフォルダ移動の後、マクロ終了 3.移動元に該当フォルダが多数ある場合も2.としたいです。 例えば セルC2に「12345678-6」表示 移動元のフォルダに「12345678-6_北海 太郎」のフォルダ名のフォルダがあり、 場合が一致した場合は、移動先のフォルダに移動 画像は参考画像となります。 親切にコード共教えてください。 よろしくお願いいたします。
質問日時: 2023/10/18 14:17 質問者: エクセル小僧 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
VBA とびとびの列を結合させる
E列からI列に固定でなくデータが入っています。 VBAで各行ごとに、データが入っているとびとびのセルを J列のように結合させ表示したいのですがうまく動きません。 構文は以下のようにしました。 どこが間違っているか教えてください。 ※G列は使用しません。 For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(i, 10) = WorksheetFunction.Concat(Range("H:I", "E:F")) Next どなたかお願いします。
質問日時: 2023/10/18 11:12 質問者: mihomiho34 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行して、指定フォルダをワイルドカードを使用したフォルダ内にコピーを出来るように設定しましたが 画像のようなエラーメッセージが出て コードの「FSO.CopyFolder Adr & "\検査時必要図書(正本)", Adr & "\########-#_*\"」が黄色くなっており、上手く実行できません。 解決方法を教えてください。 ワイルドカードを"\########-#_*\"」としており 例えばコピー先のフォルダ名が「12345678-5_北海 太郎」です。 よろしくお願いいたします。 マクロ Sub フォルダコピー正8() '※※フォルダをコピーする※※ Dim FSO As Object Dim Adr As String 'FileSystemObjectオブジェクトを作成 Set FSO = CreateObject("Scripting.FileSystemObject") 'コピー対象のフォルダパスを変数に代入 Adr = ThisWorkbook.Path '「Dataフォルダ」を「Sampleフォルダ」にコピーする FSO.CopyFolder Adr & "\検査時必要図書(正本)", Adr & "\########-#_*\" End Sub です。
質問日時: 2023/10/18 10:16 質問者: エクセル小僧 カテゴリ: Microsoft ASP
ベストアンサー
1
0
-
VBAでC列が入力済みならそのままの値を表示し、空白ならA列の値で別ブックからVlookupしたい。
空白でない場合はネットでお見掛けするのですが、逆はどうしたら良いのか独学歴も浅く自力では最早解決出来そうになく、皆様の知恵をお借りしたいです。 表のとある列に空白が所々空いており、それを埋める様な形をFor NextでWorksheetFunction.Vlookup を回して別ブックの表から値を持って来れたらと思っています。 色々ネットを見ながら組んだのですが、最後のWorksheetFunctionの辺りでコードが上手くいきません。 エラー回避を入れると最後までコードは動く様になるのですが、欲しい結果は得られません。 イミディエイトを見ていると何やら転送先ファイルの範囲を上手く選択出来ていない様なのですが、どうしたら良いのか分からず自分ではお手上げです。 どうか、ご教授お願いします。 Dim Nd As String Nd = Worksheets(“Meinmenu”).Range(“F19”).Value’年の値が入っています Dim Nd2 As String Nd2 = Worksheets(“Meinmenu”).Range(“E21”).Value’月の値が入っています Dim NewFN As String NewFN = (“転記先” & Nd & “年” & Nd2 & “月.xlsx”) Call コール用5‘転記先をアクティブ Worksheets(Nd & “年上期”).Select Dim i As Long For i = 13 To Cells(Rows.Count,3).End(xlUp).Row Dim x As Range x = Worksheets(Nd & “年上期”).Cells(i,”A”) If Cells(i,”C”) = “” Then Cells(i,”C”).Value _ = WorksheetFunction.Vlookup(x,Workbooks (“転記元.xlsm”).Worksheet(“転記用”).Range(“A2: 130”),2,False) End If Next i 宜しくお願いします。
質問日時: 2023/10/17 23:30 質問者: 洋司 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
フロントエンドフレームワークの定数について
React、Vueなどのフレームワークで、バックエンドのAPI呼び出しや画面遷移でurlを記述することがあると思います。その時のurlは定数ファイルにまとめていたりするのでしょうか? それとも直書きでしょうか? よろしくお願いいたします。
質問日時: 2023/10/17 21:25 質問者: madose カテゴリ: JavaScript
解決済
1
0
-
環境依存文字?をEnumで定義したい
添付画像の環境委依存文字?(Unicode:9745)をEnum、もしくは、Const で定義したいのですが、VBE上で入力すると、"?" で表示されてしまいます。 定義する方法は、ありますか?
質問日時: 2023/10/17 21:14 質問者: ママチャリ カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
vba userFormのSubを標準モジュールから呼び出す方法を教えてください
いつもお世話になります 人の古いプログラムで標準モジュールから、ユーザフォームのSubroutineを 呼び出しているのですが(Dialog Open) 「オブジェクトが必要です」というエラーが出ます 自分はこんな使い方をしたことがないのでよく分からないので 教えてもらいたく投稿しました。 (標準モジュール) '********************************** ' ファイルデータ入力 '********************************** Public Sub ①データ読込み(Optional IsMsg) With Application .SheetsInNewWorkbook = 3 End With ' UserForm1.cmdGetTabFile_Click ' Dialog Open If IsGetCancel = False Then Call GetPaste End If End Sub (UserForm1) Public Sub cmdGetTabFile_Click() Dim filename As String IsGetCancel = True With CommonDialog1 If strInTextDIR = "" Then strInTextDIR = CurDir End If Application.DefaultFilePath = strInTextDIR .InitDir = strInTextDIR .CancelError = False .filename = "" .Filter = "断面照査データ(*.TXT)|*.TXT|全て|*.*" .ShowOpen If .filename = "" Then Exit Sub End If If Dir(.filename) = "" Then MsgBox "No FIle " & .filename Exit Sub End If TabFileNAME = .filename IsGetCancel = False End With strInTextDIR = getFilePath(TabFileNAME) End Sub 以上、よろしくお願い申し上げます
質問日時: 2023/10/17 15:06 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
指定した条件で行セルを非表示にするVBAについて
いつもお世話になっております。 この度、指定した条件でchat-GPTに助言を求めたところ、下記のVBAを提示していただいたのですが、重複している行セルが非表示になってくれず困っております。 指定条件は、例えばD列に重複している文字列が入力されており、かつE列にPCの文字が入力されている場合、その重複している行セルを非表示にする処理を構築したいのですが ' D列の重複文字列とE列の含む"PC"をチェックし、行セルを非表示にする For i = 10 To lastRow Dim cellD As String Dim cellE As String cellD = ActiveSheet.Cells(i, 4).Value cellE = ActiveSheet.Cells(i, 5).Value If Not dictD.Exists(cellD) Then dictD(cellD) = 1 Else dictD(cellD) = dictD(cellD) + 1 End If If InStr(1, cellE, "PC", vbTextCompare) > 0 Then If Not dictE.Exists(cellD) Then dictE(cellD) = 1 Else dictE(cellD) = dictE(cellD) + 1 End If End If If dictD(cellD) > 1 And dictE(cellD) = 1 Then ActiveSheet.Rows(i).EntireRow.Hidden = True End If Next i こちらのVBAを実行したところ、PCが入力されている行セルだけが非表示となり、Surfaceが入力されている行セルは表示されたままとなります。 この重複している行セルを非表示にすることは可能なのでしょうか? よろしくお願いいたします。
質問日時: 2023/10/17 03:09 質問者: pino382 カテゴリ: Visual Basic(VBA)
ベストアンサー
17
1
-
スマホで、左右にスワイプしてウェブページを読み込ませる方法は?
スマホの画面を指で左右にスワイプして、ウェブぺ―ジ(HTML)を切り替えたいです。 HTML、CSS、JavaScripit を使用して、実装可能でしょうか。 教えてください。お願いします。
解決済
1
0
-
VBA 何かしら文字が入っていたら
以下のルールで構文をかきたいのですが、あれこれやっても動きません。 データはH1から固定数ではなくデータがはいってます。 H列に何かしらの文字が入っていたらI列に「-」を返す 空白の場合は空白で 以上の構文をどなたかお願いします。
質問日時: 2023/10/16 15:43 質問者: mihomiho34 カテゴリ: Visual Basic(VBA)
解決済
2
1
-
C言語です
以下の問題でorder関数の使い方がわからないので教えてください。途中まで作成したものも貼っておきます。 よろしくおねがいします。 100 までのランダムな整数 x, y を定義する。int 型のポインタを 2 つ受け取る order 関数をつくり,int 型変数(x)が(y)よ りも大きい場合は,値を入れ替える。 #include<stdio.h> #include<time.h> #include<stdlib.h> void swap(int *x, int *y); int main(void) { int x,y; int *p; srand((unsigned)time(NULL)); x= (int)(rand()/(RAND_MAX +1.0)*100); y=(int)(rand()/(RAND_MAX +1.0)*100); p=&x; printf("x:address %p, value = %d\n",&x,x); printf("y:address %p, value = %d\n",&y,y); if (x<y) { swap(&x,&y);} printf("x:address %p, value = %d\n",&x,x); printf("y:address %p, value = %d\n",&y,y); return 0; } void swap(int *x, int *y) { int c; c = *x; *x =*y; *y = c; return ; } 閉じる
質問日時: 2023/10/16 01:43 質問者: kyouta6245 カテゴリ: C言語・C++・C#
解決済
2
0
-
クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう
現状 (ケース1) ネット上にてホームページの文字列をコピー(ハンド作業) ⇒①マクロ実行(ブックAに文字列が貼付) ⇒②マクロ実行データの一部をブック2へ転記 ⇒クリップボードから、ネット上にてコピーしたホームページの文字列が消えている (ケース2) ネット上にてホームページの文字列をコピー(ハンド作業) ⇒①マクロ実行(ブックAに文字列が貼付) ⇒ブック1に貼付された、データをハンドでデリートする ⇒クリップボードから、コピーした文字列は消えない 【改善したい事】 ケース2のように、クリップボードからコピーした文字列が 消えないようにしたい。そのまま残しておきたいです。 ご存じの方、宜しくお願いします 【①ブックAへデータを貼付するコード】 Sub 他のExcelへユニコード書式にて貼付_MSGBOXあり() Dim CB As Variant CB = Application.ClipboardFormats If CB(1) = True Then MsgBox "クリップボードにコピーされていません", vbOKOnly + vbCritical, "A部門" Exit Sub End If Worksheets("転記元").Range("A10").Select Worksheets("転記元").PasteSpecial Format:="Unicode テキスト" End Sub 【②ブック2へデータを貼付】 Sub 別ブックへ転記() Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow2 As Long Dim row2 As Long Dim i As Integer Set ws1 = Worksheets("転記元") For i = 1 To Workbooks.Count If Workbooks(i).Name = "book2.xlsx" Then '転記先のブック。 Set wb2 = Workbooks(i) End If Next Set ws2 = wb2.Worksheets("sheet1") '転記先シート maxrow2 = ws2.Cells(Rows.Count, "B").End(xlUp).Row '転記先のブックB列 row2 = maxrow2 + 1 ws2.Cells(row2, 2).Resize(1, 8).Value = ws1.Range("A1").Resize(1, 8).Value '転記元から転記先へ7セル分を転記.a1から7セル分。天気先。1列目から。 ws1.Range("I1").Copy ws2.Cells(row2, 10).Resize(1, 1) wb2.Save '転記先のブックを上書き End Sub
質問日時: 2023/10/15 13:36 質問者: aoyama-reiko カテゴリ: Visual Basic(VBA)
解決済
1
0
-
CGIの記述について教えてください…使用期限
CGIの記述ですが古い雑誌からコピーしました…以前は使えていたのですが今回カーバーから削除したCGいを新たに設置したところ動きませんが・・・CGIの記述に使用期限または新しいとか古いとかありますか??記述だから古いも新しいもないと思っているのですが
質問日時: 2023/10/15 08:52 質問者: kakagaga1245 カテゴリ: CGI
解決済
3
0
-
(マクロ)もともとある書式(文字列)をクリアーしないようにしたい。
以下のコードは、エクセル上にある文字をクリアーするコードです 普通に動きます。 しかし、書式で文字列にしておいたものも、(標準)に書式を戻してしまいます 文字だけクリアーして、書式はクリアーしないように出来ないでしょうか? ご存じの方、教えて下さい (コード) Range("A10:XFD1048576").Clear
質問日時: 2023/10/14 17:57 質問者: aoyama-reiko カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
(マクロ)コピー貼付のマクロで、クリップボードに何も貼付ていな時の実行をエラーにしない為には
以下のコードは、エクセルのシートのA10に主に ネットのブラウザの情報をコピーして貼付ます。 ただし、何もコピーしていない状態で実行すると エラーになります でバックは以下です。 ●クリップボードに何も張り付いていなくてもエラーにならない方法 ●クリップボードに何も張り付いていなければ、メッセージ(何も張り付いていません)と 表示されるにしたいです。 ご存じの方、教えて下さい (デバック) Worksheets("転記元").PasteSpecial Format:="Unicode テキスト" 【コード】 Sub a10貼付() Worksheets("転記元").Range("A10").Select Worksheets("転記元").PasteSpecial Format:="Unicode テキスト" End Sub
質問日時: 2023/10/14 17:10 質問者: aoyama-reiko カテゴリ: Visual Basic(VBA)
解決済
1
0
-
良いプログラム、悪いプログラムの条件
良いプログラム、あるいは悪いプログラムの条件を解説してください
質問日時: 2023/10/14 11:10 質問者: daemon3900 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
3
0
-
クリスタルレポートで困っています。素人です
全くのど素人です。 元を作った人がコロナで倒れいなくなり困っています。 crystal reports 8 だと思います。 素人の質問なので的を射てないか初歩的な事なのかもわからないです すいません。 もともとあるレポートの修正を頼まれたのですが(インボイス関連) 請求書とします。商品の合計は出てるのですが(8%と10%分かれて) その商品の消費税を追加で別に出したいのですが 素人の考えで単純にそのフィールドに 8%なら0.08 10%なら0.1 をかけた式フィールドを追加すればいいのではないかと思ったのですがまったくわからないです。 そもそもできる出来ないもわからない状態で 他にいい方法があるのかすらわからないです。 できれば誰でもいいので答え(できない答えでもいいので)を 頂けないでしょうか。よろしくお願いします。 出来るのであれば式も載せて頂いたら助かります。
解決済
3
0
-
PYTHONのtkinterについて
pythonでボタンを押すと乱数がプリントされるように設定したいのですがうまくいきません ご協力お願いいたします コードはこちらです import tkinter import random from random import randint num=randint(1,7) def lucey_nover (): print(num) root=tkinter.Tk() root.title('乱数') root.geometry('550x550') root.resizable(0,0) #フレームの作成 flame_1=tkinter.Frame(root,bg='red') flame_2=tkinter.Frame(root,bg='green') flame_1.pack(fill='both',expand=True) flame_2.pack(fill='both',expand=True) tkinter.Label(flame_1,text='今日のラッキーナンバーは?',font=10,compound=lucey_nover).pack() button_1=tkinter.Button(flame_1,text='決定',font=6) button_1.pack(padx=0,pady=10) root.mainloop() 16行目にエラーが出てるようですが良く分かりません
ベストアンサー
1
0
-
【マクロ】複数シートを印刷する方法
標題の件、以下3つのシートを印刷するコードを教えて下さい 出来る限り簡単なコードが良いです。 ネットにて調べましたが、複雑なものが多かったです。 ご存じのかた、宜しくお願いします Sheet1 Sheet2 Sheet3
質問日時: 2023/10/14 10:01 質問者: aoyama-reiko カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
C言語 バッファについて。
コンピューターとプログラムのバッファが1GBある時に2MBを使う時、残りのバッファは998MB残っていますがこれは使い終わったら、また2MB戻って来てまた元の1GBになるらしいのですが、これは、(使い終わったら元の1GBになる)プログラムが消えていくのはありえないからでしょうか?教えて頂けると幸いです。
質問日時: 2023/10/13 20:43 質問者: メラゾーム カテゴリ: C言語・C++・C#
解決済
20
0
-
powershellスクリプトで出力したエクセルファイルの罫線が出ない
c:\testフォルダ内のサブフォルダ名を昇順にしてエクセルファイルに出力するスクリプトで、サブフォルダ名を罫線で囲みたいのですがうまくいきません。 $folderPath = "c:\test" $excelFilePath = "c:\test\music_cd.xls" # Get all subfolders in the folder $subFolders = Get-ChildItem -Path $folderPath -Directory # Sort the subfolders by name in ascending order $subFolders = $subFolders | Sort-Object -Property Name # Create a new Excel workbook $excel = New-Object -ComObject Excel.Application $workbook = $excel.Workbooks.Add() # Add a new worksheet to the workbook $worksheet = $workbook.Worksheets.Add() # Add the subfolder names to the worksheet $row = 1 foreach ($subFolder in $subFolders) { $worksheet.Cells.Item($row, 1) = $subFolder.Name $row++ } # Add borders to the cells $range = $worksheet.Range("A1:A$subFolders.Count") $range.Borders.LineStyle = 1 # Save the workbook as music_cd.xls $workbook.SaveAs($excelFilePath) # Close the workbook and Excel application $workbook.Close() $excel.Quit() 実行すると、 HRESULT からの例外:0x800A03EC 発生場所 C:\test\music_cd.ps1:25 文字:1 + $range = $worksheet.Range("A1:A$subFolders.Count") + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : OperationStopped: (:) [], COMException + FullyQualifiedErrorId : System.Runtime.InteropServices.COMException このオブジェクトにプロパティ 'LineStyle' が見つかりません。プロパティが存在し、設定可能であることを確認してください。 発生場所 C:\test\music_cd.ps1:26 文字:1 + $range.Borders.LineStyle = 1 + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : InvalidOperation: (:) []、RuntimeException + FullyQualifiedErrorId : PropertyNotFound とエラーが出ます。サブフォルダ名だけの罫線のないエクセルファイルが出力されます。 どうすればうまくいくでしょうか?
質問日時: 2023/10/13 16:21 質問者: cowono216g カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
Pythonのtkinterについて
tkinterが表示されなくて困ってます コードとしては import tkinter root=tkinter.Tk() root.title('乱数') root.geometry('550x550') root.resizable(0,0) #フレームの作成 flame_1=tkinter.Frame(root,bg='red') flame_2=tkinter.Frame(root,bg='green') flame_1.pack(fill='both',expand=True) flame_2.pack(fill='both',expand=True) tkinter.Label(flame_1,text='今日のラッキーナンバーは?',font=10).pack() button_1=tkinter.Button(flame_1,text='決定',font=6) button_1.grid(row=2,column=3) root.mainloop() 続いて エラー内容としては tkinter.tclerror と表示されてましたどこを直せば良いのでしょうか? 因みにラッキーナンバーの少し下に決定ボタンを作成したいです
ベストアンサー
2
0
-
Windows PowerShellでscoopコマンド エラー
どうすればいいんや。分からん。 下記、PowerShellの内容です。アンインストールもできず困ってます。アドバイスください。 PS C:\Windows\system32> scoop help Get-ChildItem : パスに無効な文字が含まれています。 発生場所 C:\Users\FLATUP\scoop\apps\scoop\current\lib\commands.ps1:2 文字:51 + ... tem "$PSScriptRoot\..\libexec") + (Get-ChildItem "$scoopdir\shims") | + ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + CategoryInfo : InvalidArgument: (G:\:String) [Get-ChildItem]、ArgumentException + FullyQualifiedErrorId : DirArgumentError,Microsoft.PowerShell.Commands.GetChildItemCommand
ベストアンサー
1
0
-
VBA マウスクリックとキーボードの判定のGetAsyncKeyStateについて教えてください
いつもお世話になります ウェッブ調べて使ってみましたが、説明がよくわからず Debug.Print を入れてチェックしてみました Do If GetAsyncKeyState(vbKeyLButton) = 32768 Then '...マウス左クリックの判定 Debug.Print "check1", GetAsyncKeyState(vbKeyLButton) Exit Do ElseIf GetAsyncKeyState(vbKeyReturn) = 32768 Then '...エンターキーの判定 Debug.Print "check2", GetAsyncKeyState(vbKeyReturn) Exit Do ElseIf GetAsyncKeyState(vbKeyEscape) = 32768 Then '...エスケープキーの判定 Debug.Print "check3", GetAsyncKeyState(vbKeyEscape) GoTo ErrOut End If Loop 今、三つのKeyでチェcckしてみましたが押されたときはみなプラスの32768のようですが これで良いのですか? ちょっと不安だったので投稿してみました 押される前は"0"か"1"みたいですが 以上、宜しくお願い致します
質問日時: 2023/10/11 18:33 質問者: 公共ごま カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
Webページに関するさまざまな情報を示す要素
Webページに関するさまざまな情報を示す要素はhead要素ですか?
質問日時: 2023/10/11 15:14 質問者: Wohinfahrensie カテゴリ: XML
ベストアンサー
1
0
-
ベストアンサー
1
0
-
シェルスクリプトで最初にサブコマンド関数をいくつか定義して最後にメイン処理書くのってきしょくないです
シェルスクリプトで最初にサブコマンド関数をいくつか定義して最後にメイン処理書くのってきしょくないですか? この書き方のメリットとして例えばsh -iのように対話的にデバッグができるとか、そもそもRuby、Python、Perlで伝統的に使われてきたとかが思い付くんですが、この書き方は駄目だとPOSIX原理主義の提唱者であるリッチー大佐という者が書籍「はじめてのPOSIX原理主義」で主張していました。あと、ユニケージ開発手法でも言われてる気がします。 その書籍とユニケージの手法では「1行書くたびにデバッグをする」「変数になにかを代入するのは極力避けたりelse文は避けるようにしたりしてパイプで数珠繋ぎのようにコマンドを繋げる使い方にする」「1ファイル1コマンドとし、サブコマンドなんてものはもはや別ファイルとして実装する」とかと薦められていて私はこちらが気に入っています。 一方で、シェルスクリプトを現代化する的な取り組みをしてるプロジェクトがあるのも事実であります。例えばモジュールっぽいものを実装したりテストツールを作っていたりとか。ko1nksmさんの取り組みが良い例だと思います。 皆様はどう思いますか。 なお、私はIT企業に就職できませんでした。それから今もなおシェルスクリプトでできる仕事どころかプログラミングの案件をやったことがないという現状が続いております。プログラミングを真面目にやっていたのは学校で機械学習を使った研究をしてたのが最後でありそれ以降はほぼお遊びだと考えています。
質問日時: 2023/10/11 13:27 質問者: ご希望のニックネームで登録 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
Windows 11 Pro での、VBAのCode書き換えで、1点お教え願います。
6年程前に、市販のBVA参考書をベースに、PCでアルバム閲覧Softを自作する折、デジカメの***.JPGの撮影日時を読み込むVBA_codeに手こずり、この「教えてGoo」でいろいろヒントを頂いて、完成できました(多謝)。 **現在、当時のWindows8から、Windows11 Proに移行中で、一か所、VBA_Codeで苦戦中です。 画像4枚を貼りました。VBA_UserForm1のListBox1で、写真リスト番号2389が、番号23と表示されて、下2桁の89が隠れてしまいます。一か所書き換えればと思いますが、どのCodeを書き換えれば良いか見当がつきません。 **** 何かヒントを頂ければ幸いです。**** まず、VBA_Codeを足ります。あと画像3枚を追加添付します。 ********** VBA_UserForm1、ListBox1 のCode ' *** UserForm1 code ' Universal Dim Dim Fname As String Dim RowPos As Integer Dim zycount As Integer Private Sub Frame1_Click() End Sub Private Sub Image1_Click() End Sub Private Sub TextBox8_Change() End Sub Private Sub UserForm_Initialize() Dim i As Integer Dim Str1 As String Dim Str2 As String ' RowPos as integer as Universal ' zycount As Integer as Universal Worksheets(1).Select RowPos = 11 zycount = 1 Do Str1 = Cells(RowPos, 3) ' PhotoName 日本語 Str2 = Cells(RowPos, 2) ' PhotoName カメラ連番FileName xxx.jpg ListBox1.AddItem (zycount) ListBox1.List(zycount - 1, 1) = (Str1) RowPos = RowPos + 1 zycount = zycount + 1 Loop While Str2 <> "" ' ListBox1.RemoveItem RowPos - 12 'setting Initial Photo=The last On Error GoTo ErrorHandler ListBox1.Selected(RowPos - 13) = True 'ListBox1_Clickと等価 一番最後にセット ' ListBox1.Selected(0) = True 'ListBox1_Clickと等価 一番最初にセット UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom Exit Sub ErrorHandler: MsgBox "表示する写真が一枚も登録されていません" & vbCr & vbCr & _ "「写真追加作業」で、写真を登録してから、写真閲覧ボタンをクリックしてください。" End End Sub Private Sub CommandButton1_Click() Unload Me UserForm2.Show End End Sub Private Sub ListBox1_Click() Dim myPath As String ' Dim Fname As String as Universal ' RowPos as integer as Universal ' zycount As Integer as Universal RowPos = ListBox1.ListIndex + 11 With Worksheets(1) myPath = .Cells(RowPos, 1) ' myPath = "C:\Users\ZY\Documents\柳澤写真\20xy年" Fname = .Cells(RowPos, 2) '写真番号 xxx.jpg File Name TextBox6.Value = .Cells(RowPos, 3) 'Photo Name TextBox3.Value = .Cells(RowPos, 4) 'Date TextBox4.Value = .Cells(RowPos, 5) 'Place TextBox5.Value = .Cells(RowPos, 6) 'Memo TextBox1.Value = .Cells(RowPos, 7) 'Camera TextBox2.Value = .Cells(RowPos, 8) 'Size TextBox8.Value = myPath & " \" & Fname 'Photo Address" End With Fname = myPath & "\" & Fname Image1.Picture = LoadPicture(Fname) '写真表示 End Sub Private Sub CommandButton2_Click() UserForm1.Image1.PictureSizeMode = fmPictureSizeModeClip Image1.Picture = LoadPicture(Fname) End Sub Private Sub CommandButton3_Click() UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom Image1.Picture = LoadPicture(Fname) End Sub Private Sub TextBox1_Change() Worksheets(1).Cells(RowPos, 7) = TextBox1.Value 'カメラ End Sub Private Sub TextBox2_Change() Worksheets(1).Cells(RowPos, 8) = TextBox2.Value 'サイズ KB End Sub Private Sub TextBox3_Change() Worksheets(1).Cells(RowPos, 4) = TextBox3.Value '更新・撮影日時 End Sub Private Sub TextBox4_Change() Worksheets(1).Cells(RowPos, 5) = TextBox4.Value '撮影場所 End Sub Private Sub TextBox5_Change() Worksheets(1).Cells(RowPos, 6) = TextBox5.Value 'メモ End Sub Private Sub TextBox6_Change() Worksheets(1).Cells(RowPos, 3) = TextBox6.Value 'Revised Photo Name ListBox1.List(ListBox1.ListIndex, 1) = TextBox6.Value 'Revised Photo Name End Sub Private Sub ExitBtn_Click() Unload Me Application.Quit '/// AutoOpen.Show End End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Unload Me Application.Quit End End If End Sub ***以上 2023/10/11 PLSヘルプme
質問日時: 2023/10/11 01:12 質問者: PLSヘルプme カテゴリ: Visual Basic(VBA)
ベストアンサー
2
1
-
CGIの設置が分かりません・・・
abc.htmlのページにformを設置した場合abc.cgiが必要ですか??formmail.cgiになりますか??? 教えてください(泣き’’)
質問日時: 2023/10/10 20:43 質問者: kakagaga1245 カテゴリ: CGI
解決済
1
0
-
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています。 これがないため作業が遅くなり困っています。 横に長い(列数が多い)csvファイルを指定した列数ごとに分割して複数のcsvファイルに分けたいのですができません。 行数ごとに分割して複数のcsvファイルに分けるExcelマクロは調べると複数出てくるのですが... 何かいい方法はないでしょうか? 以下がコードです。 https://yu-syan.sakura.ne.jp/?p=87 たぶんLine Input # ステートメントで行数ごとに読込している部分を列数ごとに読込すればできると思うのですがその動作をするステートメントが無いため困っています。 http://officetanaka.net/excel/vba/statement/LineInput.htm 以下がcsvファイルです。 https://drive.google.com/file/d/1W0O4R10ibNVRnzDzeZ9AKSRT9gueS3GZ/view?usp=drive_link #VBA #Excel #マクロ #csv #データ処理
質問日時: 2023/10/09 12:12 質問者: ねぐせ カテゴリ: Visual Basic(VBA)
解決済
8
2
-
プログラマーがHTMLとCSSでウェブデザインをするのは大人の幼稚園なんじゃないかと思い込んでる
このプライドを捨てれば簡単にプログラミングとかの仕事を「個人で」取れるものだと思いますか。
質問日時: 2023/10/09 11:30 質問者: ご希望のニックネームで登録 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
9
2
-
ホームページにCGIを設置したのですが・・・Ⅱ
ホームページにCGIを設置したのですがうまく動きません、どうも違うドメインに移ります・・・そこでそのドメインも空いているので試しにそのドメインに移そうかと思うのですが。。・・どうでしょうか???
質問日時: 2023/10/08 23:29 質問者: kakagaga1245 カテゴリ: CGI
ベストアンサー
5
0
-
ホームページにCGIを設置したのですが・・・
うまく動きません…調べてみたらスペルが似た、別のURLに飛んでいます。どうすれば改善されるでしょうか???
質問日時: 2023/10/08 23:13 質問者: kakagaga1245 カテゴリ: CGI
ベストアンサー
2
0
-
Pythonのスクレイピングの質問です。
Pythonのスクレイピングの質問です。 こちらのランキングサイトから clickCntが10000以上のタイトルをもってこようとしてます。(clickが1万以上のもの) R18サイトになります↓ https://movie.eroterest.net/popular/?days=1 実際にコードを書いたのですが、このように clickCntが10000以下のタイトルを表示されてしまいます。 ['5', '位', 'アダルトのため規制(タイトルが表示されてます)'] ['20,408click'] ['6', '位', 'アダルトのため規制(タイトルが表示されてます)'] ['25,900click'] ['7', '位', 'アダルトのため規制(タイトルが表示されてます)'] ['8', '位', 'アダルトのため規制(タイトルが表示されてます)'] clickCntが10000以下のものは、clickCntは表示されませんが、タイトルはでています。 どうしたら、 ['5', '位', 'アダルトのため規制(タイトルが表示されてます)'] ['20,408click'] ['6', '位', 'アダルトのため規制(タイトルが表示されてます)'] ['25,900click'] で止めることができるのでしょうか? ソースコードです↓ # <div>タグのclassが'itemTitle'または'clickCnt'の要素をすべて取得 div_itemTitle_tags = soup.find_all('div', class_=lambda x: x in ['itemTitle', 'clickCnt']) # iconGoodSiteクラスを持つ要素を削除します。 for div_item in div_itemTitle_tags: for iconGoodSite_tag in div_item.find_all(class_='iconGoodSite'): iconGoodSite_tag.extract() # 数値が10000以上の要素だけを表示 for div_item in div_itemTitle_tags: text_list = [x for x in div_item.stripped_strings] if 'clickCnt' in div_item.get('class', []): # 'clickCnt'の要素内のテキストを取得し、カンマを削除してから数値に変換 click_count_text = text_list[0] click_count = int(re.sub(r'[^\d]', '', click_count_text)) if click_count >= 10000: # 10000以上の場合、itemTitleを表示 print(text_list) elif 'itemTitle' in div_item.get('class', []): # itemTitleを表示 print(text_list)
質問日時: 2023/10/07 23:45 質問者: ccolo カテゴリ: その他(プログラミング・Web制作)
解決済
1
0
-
プログラミングで詰まった時って皆さんどうしていますか?
プログラミングで詰まった時って皆さんどうしていますか?
質問日時: 2023/10/07 21:36 質問者: BookManHome カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
6
0
-
画面遷移を行わずに同一ページでHTML表示を切り替えたい
wordpressで質問掲示板の回答機能を作成していて、確認画面を設けたいと考えているのですが、 Ajaxを使わず画面遷移を行わずに同一ページで表示画面→確認画面にデザインを切り替える方法はありますでしょうか? ヤフー知恵袋の回答機能のようにURLを切り替えずに確認画面で送信後にリダイレクトさせたいです。
質問日時: 2023/10/07 20:52 質問者: 初心者サイト作成 カテゴリ: JavaScript
解決済
3
0
-
Excel VBAにて、2GB超の点群データ(CSVファイル,改行コードLF)を高速で解析したい。
点群データファイルより、任意の範囲の点データを取得し、 平均標高を求めるマクロを「Excel VBA」で作りました。 ただ、今回点群データファイル(CSVファイル)の改行コードが 「X,Y,Z(CR+LF)」から「X,Y,Z(LF)」に仕様変更になったため、 Line Inputステートメントで読み込めなくなりました。 Getステートメントで1バイトずつ読み込むように改変しましたが 今度は、点群データファイルの2GB制限により 「アドレスが不正です」のエラーメッセージが出てしまい、処理が中断してしまいます。 (なお、今回の解析要な点群データのファイルサイズは17GB超です。) ' バッファの初期化 strBuf = "" Open "点群.csv" For Binary Access Read As #1 Do Until EOF(1) Get #1, , bytCode ' ここで中断 If bytCode <> 10 Then ' LF以外の場合 strBuf = strBuf & Chr(bytCode) Else ' LFの場合 varBuf = Split(strBuf, ",") ' .... (解析処理) ' バッファの初期化 strBuf = "" End If Loop Close #1 ' .... (解析結果を出力) まとめると、以下の条件のファイルを高速に読み込みたいです。 1. 2GBを超えるCSVファイル 2. 改行コードがLFのみ サンプルプログラムを教えていただければありがたいです。 よろしくお願いいたします。
質問日時: 2023/10/07 11:01 質問者: セバスチャンだよ カテゴリ: Visual Basic(VBA)
解決済
2
0
-
サーバーのエラーでおしえてください・HPのフォームがエラーになります
「このフォームはセキュリティで保護されていません}オートフィルがオフになっています」とメッセージが出ますが・・・解決するには・・・・htaccessを使おうと思うのですがファイル名はhtaccessでいいでしょうか???作りこんでいこうとおもいますので・・・
解決済
1
0
-
ホームページの事でおしえてください
メールフォームのため、CGIを設置したのですが、このページだけhttpで始まりhttpsとなりません・・・・httpsで始まるurlに変更する方法教えてください
質問日時: 2023/10/06 22:31 質問者: kakagaga1245 カテゴリ: CGI
解決済
2
0
-
HTMLのbody内に<style>~</style>定義は作法的にOKでしょうか?
現在のHTMLの仕様にお詳しい方アドバイスを頂けないでしょうか? タイトルの通りなのですが、HTMLのbody内に<style>~</style>を定義し、そこにstyleの内容を定義していくことは、現在のHTMLの仕様としてありでしょうか? 実際に試してみると、問題無く動作するのを確認しています。 出来れば、CSSの設置してある外部ファイルに記述するのがお作法的には正しいと思うのですが、サイトの構成がパーツごとにincludeされていたり、ほんの少しの、または一時的にCSSを定義する際に、大元のSCSSから書き直して、コンパイルしてCSSに設定して、また戻して…。 とやっていると作業に時間がかなりかかってしまいます。 なので、特定のincludeされているHTML部分に、ちょこっと<style>~</style>を記述しています。 大変便利な方法なのですが、何か問題はありますでしょうか? HTML5は終わったと伺っています、これからはWHATWGが仕様を管理されると思うのですが、WHATWG的には、このような方法はどうなのでしょうか? 調べてみるのですが、明確な回答が見つけれず…。 この辺りお詳しい方いらっしゃいましたら、ご助言を頂けますと幸いです。 なお、その方法はNGとなる場合、何か簡易的に行える良き代替案は御座いますでしょうか? 宜しくお願いいたします。
ベストアンサー
3
0
-
ドメインの検索結果に別サイトが表示されてしまう
test.xyz(仮)というドメインでサイトを公開したのですが、 Googleの検索結果に全く関係のない別のショッピングページが表示されている状態です。 表示結果のドメインにもtest.xyzと記載されています。 検索結果のキャッシュからページを確認したところ、 canonical、転送設定、各種パス、サイト名にはtest.xyzが使われており、 おそらくスパムサイトのようなものかと思っております。 サイトを乗っ取られたわけではなさそうなのですが、 別ドメインで公開したページをtest.xyzのドメインで表示することは可能なのでしょうか。 また、解決するにはドメインを変更するしかないでしょうか。
質問日時: 2023/10/05 15:36 質問者: shiro_taku カテゴリ: SEO
解決済
3
0
-
コマンドプロンプトについて。
今、MinGWをインストールしているのですが、テラパッドもインストールしていますが、テラパッドを使わずに、代わりにメモ帳にC言語のプログラムを書いても良いのでしょうか?教えて頂けると幸いです。ちなみに、 Windows11です。
質問日時: 2023/10/04 21:20 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
5
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【プログラミング・Web制作】に関するコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
ピンとくる人とこない人の違いは?直感を鍛える方法を心理コンサルタントに聞いた!
根拠はないがなんとなくそう感じる……。そんな「直感がした」という経験がある人は少なくないだろう。ただ直感は目には見えず、具体的な説明が難しいこともあるため、その正体は理解しにくい。「教えて!goo」にも「...
-
中古物件転売時の節税対策にメス?不動産投資家は戦々恐々?元国税が解説
不動産の取引において、土地と建物を一括で売買する場合、土地に消費税はかからないが、建物には消費税がかかる。これを利用して、例えば土地と建物を合計1億円で売る場合、土地の値段を9999万9999円にし、建物を1円...
-
話題の「風呂キャンセル界隈」、お風呂に「入らない」のではなく「入れない」?
皆さんは、「風呂キャンセル界隈(かいわい)」という言葉を聞いたことはあるだろうか。「お風呂に入らない(入れない)人」のことで、最近ネット上などで話題になっているようだ。「教えて!goo」にも、「風呂に入...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2カラム、左メニュー、特定パーツの...
-
arduinoでの母音識別について
-
htmlの文字が縦書きになる
-
エクセルに張り付けた写真のファイ...
-
python エラー
-
Google ColaboでGUI作成
-
フォームを再送信しますか?
-
スマホのスプレッドシートでセルに-...
-
VBA 入力箇所指定方法
-
vba クリップボードクリアについて...
-
テーブルの行を折りたたみたいので...
-
onedrive にexcelファイルをアップ...
-
phpのファイルがブラウザで開かない
-
エクセルで集計したい。
-
EXCEL vbaでシート上に配置したボタ...
-
C#でログファイルにファイルパスが...
-
VBA 別ブックからコピペしたいので...
-
配列のペースト出力結果の書式について
-
CSSファイルの日本語コメントが文字...
-
100万件越えCSVから条件を満たす行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
htmlの文字が縦書きになる
-
onedrive にexcelファイルをアップ...
-
エクセルに張り付けた写真のファイ...
-
VBA 別ブックからコピペしたいので...
-
どうして+3
-
vba クリップボードクリアについて...
-
プログラミング言語についてc++に空...
-
今ってプログラミング言語は何が中心?
-
XMLを作成してもタグしか表示されない
-
ゲーミングPCに入っているAlrisit S...
-
テーブルの行を折りたたみたいので...
-
Pythonでの文字列からfloatへの変換...
-
Vba ファイル書き込み時に書き込み...
-
プログラミング言語について
-
バッチファイル 特定ウインドウの最...
-
matplotlibでのLaTex表示
-
Google ColaboでGUI作成
-
Excel_VBAについて質疑です。(for...
-
VBAの間違い教えて下さい
-
2つほどお聞きしたいことがあり、答...
おすすめ情報