第1弾は趣味Q&A!
コンピューター・テクノロジーのQ&A
回答数
気になる
-
個人のパソコンです。 先程まで使用していたExcelがいきなり、 開かなくなりました。 スリープモー
個人のパソコンです。 先程まで使用していたExcelがいきなり、 開かなくなりました。 スリープモードに入って、 再度立ち上げた瞬間から、 Excelの緑のアイコンもが白になっていて… どういう事でしょうか?? バージョンが何とか、あまり分かっていません… パソコンは、NECのLAVIE NS610です。 Windows?をつかっています。 再起動、再度シャットダウンもしてみました。 が、変わりなく...です。 続きの入力があるので、教えてください。 宜しくお願い致します。
解決済
2
0
-
[VB.net] ボタン(Flat)のEnable時の背景色について
こんにちは。 VB.netを用いて簡単なプログラムを作っています。 メニュー画面を作っており、ボタンをFlatにして背景色は白にしています。 ログインするユーザーによって使うボタンを変更したいのですが、 Flatの特性なのか、Enable=falseであることがわかりにくいなと思い ボタンの背景色をグレー等にできたらいいなと考えています。 プロパティなども確認しましたが、方法が分からず困っています。 もしご存知の方がいたらご教授願えませんでしょうか。 宜しくお願い致します。
質問日時: 2024/07/01 15:32 質問者: nanigashi7 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
1
-
エクセルのマクロについて教えてください。
下記のマクロは教えて頂いたマクロです。 コピー先にマクロを設定しており、マクロを実行するとコピー元のブックが開き、コピー範囲を指定して、コピー元の指定範囲にコピペ出来、その後、不要となったコピー元のブックを削除できます。 しかし、コピペまでは上手く実行出来ましたが、 不要ブックを削除できませんでした。 解決方法を教えてください。 Sub Macro1() On Error Resume Next Dim folderPath As String Dim fileName As String folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*(提出用).xlsx") If fileName <> "" Then Workbooks.Open folderPath & fileName Else MsgBox "コピー元ファイルがありません", , "確認" Exit Sub End If Dim Wb1 As Workbook, Wb2 As Workbook Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Application.DisplayAlerts = False Application.EnableEvents = False Wb2.Worksheets("提出シート").Range("B1:H47").Copy Wb1.Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.CutCopyMode = False With Wb2 If .Name Like "#########-#*" Then If MsgBox(.Name & " を削除します", _ vbCritical + vbOKCancel, "警告!") = vbOK Then .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close (False) End If End If End With Application.EnableEvents = True Application.DisplayAlerts = True End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/07/01 15:23 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
エクセルのツールバーから数値が消えました。
フォント、配置とかはあるのですが、気付いたら「数値」がなくなっていました。 再表示の仕方を教えてください。 エクセル2019です。
質問日時: 2024/07/01 14:30 質問者: nicconico2 カテゴリ: Excel(エクセル)
ベストアンサー
8
0
-
祝日と土曜、日曜の合計をカウントしたいです。 Excelで祝日シートを作成しております。 別シートの
祝日と土曜、日曜の合計をカウントしたいです。 Excelで祝日シートを作成しております。 別シートのad5セルにはリストで年が選択できるようになっています。 ad6には同様に月がリストで選択可能です。 例えばad5セルで2024、ad6セルで7を選択した場合、2024年7月の土曜、日曜、祝日の合計がでるようにしたく、以下の計算式を入れました。 =SUMPRODUCT(--(WEEKDAY(DATE(AD5, AD6, ROW(INDIRECT("1:" & DAY(EOMONTH(DATE(AD5, AD6, 1), 0))))))=7)) + SUMPRODUCT(--(WEEKDAY(DATE(AD5, AD6, ROW(INDIRECT("1:" & DAY(EOMONTH(DATE(AD5, AD6, 1), 0))))))=1)) + COUNTIFS(祝日リスト!$A$2:$A$536, ">=" & DATE(AD5, AD6, 1), 祝日リスト!$A$2:$A$536, "<=" & EOMONTH(DATE(AD5, AD6, 1), 0), 祝日リスト!$A$2:$A$536, "<>" & TEXT(WEEKDAY(DATE(AD5, AD6, ROW(INDIRECT("1:" & DAY(EOMONTH(DATE(AD5, AD6, 1), 0)))))), "ddd")) 結果としては、2024年7月は土曜、日曜に祝日がないため9となります。 しかし、土曜、日曜に祝日の場合、土曜、日曜の個数と祝日を2日分としてしまいます。 土曜、日曜に祝日の場合は1日としてカウントするには、上記の式をどのように修正するのが良いでしょうか。
質問日時: 2024/07/01 12:00 質問者: HS83als カテゴリ: Excel(エクセル)
解決済
3
0
-
パソコンプリント設定について
ニュースやグーグルマップ等検索後にプリントするとA4用紙中央に名刺大に縮小された状態でプリントアウトされてしまいます。以前は普通に印刷できていたのですが、最近突然縮小してしまいました。印刷プレビューを見ると文の端のほうが欠けて表示されます。 設定変更の方法を教えて頂けませんか? 尚、エクセル、ワード等の保存したデーターは問題なくプリントされます。
質問日時: 2024/07/01 11:44 質問者: マカロニウエスタン カテゴリ: Illustrator(イラストレーター)
解決済
2
0
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると画像のエラーメッセージが表示されマクロ「貼り付け」のコードの内「Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats」が黄色く表示されて上手くマクロを実行できません。 一連のマクロでは無く、手動で行うと上手く行きます。この問題を解決できる方法を教えてください。 何時もの作業の手順として、マクロ設定ブック:コピー先を開く(手動)次にコピー元のブックを開く(手動)次にコピー元のコピー範囲を指定(手動)次にコピー先のブックに貼り付け(マクロ:貼り付け)を実行次にコピー元のブックの削除(マクロ:電子提出削除)を日々行っており、この手順だとエラーが出ずにコピー元の指定範囲をコピー先の指定範囲にコピー出来、コピー元のファイルを削除できます。しかし、一連のマクロだとエラーメッセージが表示されます。 一連のマクロのままで上手くできる方法があるものですか?又、一連のマクロを一つのマクロとすると上手く行きますか?詳しく教えてください。よろしくお願いいたします。 一連のマクロ Call 提出シートを開く Call 提出シートコピー範囲 Call 貼り付け Call 電子提出削除 End Sub それぞれのマクロ Sub 提出シートを開く() On Error Resume Next Dim folderPath As String Dim fileName As String folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*(提出用).xlsx") Do While fileName <> "" Workbooks.Open (folderPath & fileName) fileName = Dir() Loop End Sub Sub 提出シートコピー範囲() Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Wb2.Worksheets("提出シート").Range("B1:H47").Copy End Sub Application.DisplayAlerts = False Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats Application.DisplayAlerts = True End Sub Sub 電子提出削除() Dim wb As Workbook For Each wb In Workbooks With wb If .Name Like "#########-#*" Then If MsgBox(.Name & " を削除します", _ vbCritical + vbOKCancel, "警告!") = vbOK Then .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close (False) Exit For End If End If End With Next End Sub 以上となります。 日々この作業を多い時で数十回行います。以前も同じような質問をしておりますが、解決には至っておりません。是非、解決方法を教えてください。よろしくお願いいたします。
質問日時: 2024/07/01 09:07 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
7
0
-
至急です。kubuntu24.04ltsをUSBHDDから起動して、更新しようとして、更新をインスト
至急です。kubuntu24.04ltsをUSBHDDから起動して、更新しようとして、更新をインストールしようとして再起動しました。インストーリングアップデーツ100%で、画面がフリーズしました。進みません。一時間以上変わりません。 ハードディスクは、ランプが消えています。パソコンは正常です。電源もランプがキチンとついています。倒してみました。スリーブモードになりません。何をしたらいいですか?倒したものを起こしてみます。変わりません。どうしたらいいですか?強制再起動のコマンドを打ち込んでみます。CTRL+ALT+F2〜F6はカーソルが左上に点滅します。CTRL+ALT+F1で画面がフリーズした画面に戻ります。どうしたらいいですか?
質問日時: 2024/06/30 22:35 質問者: masamieko0183Abc カテゴリ: UNIX・Linux
ベストアンサー
3
0
-
"東横イン空室チェック"のSEO対策について
サイトのSEO対策について質問です。 次のサイトがgoogle検索で、上位に上がってきません。 なぜだと思いますか? 【東横イン空室チェック】 https://hotel-vacancy.sakura.ne.jp/ 次の対応はしました。他にどのような対応をすれば良いと思いますか? ・google search consoleに登録 インデックスには登録されています。 ・Xで使ってもらえそうな人にポスト いいねをつけてくれる人や、返信をくれる人もいます。
質問日時: 2024/06/30 21:44 質問者: 東横イン空室チェック カテゴリ: SEO
解決済
1
0
-
Windows11で、映画日記Exは使えますか?
Windows11で、映画日記Exは使えますか?
ベストアンサー
1
0
-
EXCELの散布図で日付が1900年になってしまう
EXCELの散布図で横軸を日付にしたいのですが、年が正しく表示されません。 正しく表示する方法を教えてください。 画像の通りのデータを散布図にしているのですが、2010から2024年のデータなのにグラフでは1900年の日付になってしまいます。月日も正しく反映されていません。 A列の書式、図のX軸の書式とも「日付」にし、"*YYYY/MM/DD"と"YYYY/MM/DD"の両方を試していますが、どちらも結果は同じです。 =YEAR(A2)などとすると 2010 が返ってくるのですが、何がいけないのでしょうか。 Officeのバージョンは2019です。 よろしくお願いします。
質問日時: 2024/06/30 18:35 質問者: ZakuzakuUhauha カテゴリ: Excel(エクセル)
ベストアンサー
6
0
-
Excel分数の表示について
Excelの分数の表示について教えて頂きたいです。 例えば1つのセルに=1/2+1/2と入力すると1と表示されますが1/2+1/2の状態のまま表示させることは可能ですか?なおかつ他のセルと計算させたいです。 詳しい方よろしくお願いします。
質問日時: 2024/06/30 13:57 質問者: ゆた2414 カテゴリ: Excel(エクセル)
ベストアンサー
3
1
-
重複確認
下記のVBAコードを実行したら画像の様な結果になります。 グループ2、3のように同じ時間がありますが片方が色がついてしまいます。 グループ2なら両方色つけグループ3も1:06が2つあるのでそちらも色付したのですがどうすればいいでしょうか? どなたか詳しい方教えてください。 Sub 重複削除() Dim ws As Worksheet Dim iLastRow As Long Dim dict As Object Dim key As Variant Dim i As Long Dim maxRow As Long Dim maxTime As Date ' Set the worksheet Set ws = ThisWorkbook.Sheets("時系列") ' 必要に応じてシート名を変更してください ' Get the last row with data in column I iLastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row ' Create a dictionary to store the latest time for each value in column I Set dict = CreateObject("Scripting.Dictionary") ' Loop through column I to find duplicates and their latest time For i = 2 To iLastRow ' Assuming there is a header row If Not IsEmpty(ws.Cells(i, "I").Value) Then key = ws.Cells(i, "I").Value If dict.exists(key) Then ' Update the latest time if current time is newer If ws.Cells(i, "E").Value > ws.Cells(dict(key), "E").Value Then dict(key) = i End If Else dict.Add key, i End If End If Next i ' Highlight the rows with the latest time for each duplicate value For Each key In dict.keys maxRow = dict(key) ws.Rows(maxRow).Interior.Color = RGB(255, 255, 0) ' Yellow color Next key ' Clean up Set dict = Nothing End Sub
質問日時: 2024/06/30 12:17 質問者: ケイ0000 カテゴリ: Visual Basic(VBA)
解決済
2
0
-
Windows11の動作について
Windows11を立ち上げた時添付画面のように左側に黒い部分が出て立ち上がりますが これを出ないようにする設定をご指南ください。
解決済
2
0
-
Microsoftにofficeアプリについて電話で問い合わせしたい。電話番号を教えてください。
Microsoftにofficeアプリについて電話で問い合わせしたい。電話番号を教えてください。
質問日時: 2024/06/30 03:29 質問者: Wanix55 カテゴリ: その他(Microsoft Office)
解決済
3
0
-
CGの映像業界に転職したいので作品を作るのですが、 レンダリングはMayaかUE5か、Blender
CGの映像業界に転職したいので作品を作るのですが、 レンダリングはMayaかUE5か、Blenderでするか迷っています。 今求められてるのはやはりUE5でしょうか?
質問日時: 2024/06/30 01:31 質問者: ぬこやれ カテゴリ: 画像編集・動画編集・音楽編集
ベストアンサー
1
0
-
iPhone SEとAndroidってどっちの方が性能とカメラいいですか? それと、Androidに
iPhone SEとAndroidってどっちの方が性能とカメラいいですか? それと、Androidにあるジェスチャー操作を結構気に入ってるのですが(戻るやホームをスライドで出来る)、iPhoneにこの機能はありますか? なんか変なボタンついてますが、ボタン押さないと出来ないですか? 軽くて性能のいいスマホ探してます
ベストアンサー
3
0
-
ベストアンサー
4
0
-
Vrewをウィンドウズ7のパソコンにダウンロードしてインストールしようとしたところできませんでした。
Vrewをウィンドウズ7のパソコンにダウンロードしてインストールしようとしたところできませんでした。 プロシージャエントリーポイントDiscardvitualMemoryがダイナミックリンクライブラリKERNEL32.dllから見つかりませんでしたと警告が出ています。これはどういうことでしょうか?
質問日時: 2024/06/29 13:46 質問者: カワさん7777 カテゴリ: 画像編集・動画編集・音楽編集
解決済
1
0
-
無料で利用できる画像補正のツールについて
パソコンでワンクリックで画像を無料で補正できるツールをネットで調べたら、下のような紹介がありました。 「YouCam」「Photoroom」「Pixlr Editor」この3つのなかで初心者にとって一番よいものをお教えいただけましたら助かります。 また、「YouCam」「Photoroom」「Pixlr Editor」は安全でしょうか?何故無料で利用できるのかも併せてお教えいただけましたら助かります。 初歩的な質問ですみませんが、よろしくお願いいたします。 YouCam 画像編集ツール: YouCamは、写真の色補正を自動的に行う便利なツールです。画像をアップロードして自動補正を選択するだけで、素早く自然でバランスの取れた画像に仕上げます1。 Photoroom: Photoroomは、明るさやコントラストを調整するためのオンラインツールです。AI搭載で、写真の明るさを最適化できます2。 Pixlr Editor: Pixlr Editorは、オンラインで使える画像編集サービスで、色調整から本格的な加工まで幅広い機能を提供しています
質問日時: 2024/06/29 10:32 質問者: minnanoringo カテゴリ: 画像編集・動画編集・音楽編集
ベストアンサー
3
0
-
海外サイト Carethy について。
「Carethy」というコスメ系の海外サイトを使っていたのですが、 久しぶりに買い物しようかと思いアクセスを試みたところ不可でした。 (ここしか手に入らない商品ありで) 色々調べたらあまり良い情報を拾えませんでした。 詳しい方よろしくお願いします。
質問日時: 2024/06/29 08:53 質問者: caz-caz-caz カテゴリ: セキュリティホール・脆弱性
ベストアンサー
1
0
-
パソコンで不要な容量あるファイルを探し出し削除できるソフトはありますか?
パソコンで不要な容量あるファイルを探し出し削除できるソフトはありますか?
ベストアンサー
3
0
-
{ CONTROL Forms.Label.1}が表示されます
ワードでラベルコントロールを貼り付けると、本来ならキャプションが表示されるところ、上記の文字が表示されてしまいます。 どうなっているのでしょうか。
質問日時: 2024/06/29 06:49 質問者: payphone カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
{ CONTROL Forms.Label.1}が消えない
ワードでいたずらしていたらCaptionの文字と一緒に上記の文字が表示されるようになってしまいました。 どうしたら消えるでしょうか。
質問日時: 2024/06/29 05:40 質問者: payphone カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
1
0
-
Excelについての質問です。 B2セルの値とB1セルの値を比較し、B2セル値の方が小さかったら"5
Excelについての質問です。 B2セルの値とB1セルの値を比較し、B2セル値の方が小さかったら"5"、B2セル値がB1セル値に1.2.3までのいずれかの数を足した値か等しかったらなら"4"、B2セル値がB1セル値に4.5までのいずれかの数を足した値なら"3"...のように5段階の結果がB3セルに表示されるようにしたいです。 具体的には、 B1セルが25で、B2セルに28を入力したら、B3セルに"4"と表示
質問日時: 2024/06/28 21:19 質問者: キハ カテゴリ: Excel(エクセル)
ベストアンサー
4
0
-
jpeg画像の圧縮
JPEG画像は圧縮データなのに、なぜzipでさらに圧縮できるのでしょうか? zipデータをzipでさらに圧縮するとどうなりますか?
質問日時: 2024/06/28 20:28 質問者: isoworld カテゴリ: その他(ソフトウェア)
ベストアンサー
5
1
-
ニコニコがサイバー攻撃されましたが、 外部サイトでパスワードを使い回してる場合変えた方がいいですよね
ニコニコがサイバー攻撃されましたが、 外部サイトでパスワードを使い回してる場合変えた方がいいですよね? クレカは持ってなくPayPayしかありません
質問日時: 2024/06/28 17:54 質問者: エリオットロジャー2 カテゴリ: その他(セキュリティ)
解決済
3
0
-
マクロエクセルのブロック解除
マクロを含むエクセルファイルを開くとMicrosoftによりマクロ実行がブロックされましたと警告メッセージが出ます。ブロックを解除する方法を教えてください。 ファイルのプロパティの全般タブに 許可する□が表示されない場合の対処法が分からない。
質問日時: 2024/06/28 16:24 質問者: papiyonys カテゴリ: Excel(エクセル)
解決済
1
0
-
マクロの記録を使用したマクロの実行について
当方、マクロ・VBA初心者です。 マクロの記録を利用し、マクロの作成を行いました。 既にデータが入力されているセルに対して、 ・行の追加 ・列の追加 ・セルの結合 を行うマクロの記録を行い、別シートにも同様の作業を反映させようとしたのですが、 マクロを実行したところ、データが入力されているセルに対しては作業が反映されず、 新規列・行が追加され、追加されたセルに対して作業が実行されました。 マクロの記録を行ったシートと、作業を反映させたいシートは同様の構成となります。 こちら、別シートの既存セルに対して作業を実行するにはどのようにしたらよいでしょうか。 ご教示いただければ幸いです。 ▼マクロの記録で作成されたマクロ Sub Macro1() ' ' Macro1 Macro ' ' Columns("I:K").Select Range("I2").Activate Selection.EntireColumn.Hidden = False Columns("I:J").Select Range("I2").Activate Selection.ColumnWidth = 20 Columns("C:C").Select Range("C2").Activate Selection.Insert Shift:=xlToRight Rows("4:4").Select Selection.Insert Shift:=xlDown Rows("6:6").Select Selection.Insert Shift:=xlDown Rows("8:8").Select Selection.Insert Shift:=xlDown Rows("10:10").Select Selection.Insert Shift:=xlDown Rows("12:12").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=6 Rows("14:14").Select Selection.Insert Shift:=xlDown Rows("16:16").Select Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=3 Rows("18:18").Select Range("C18").Activate Selection.Insert Shift:=xlDown ActiveWindow.SmallScroll Down:=-27 Rows("3:18").Select Selection.RowHeight = 32 Range("J2:K2").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:A4").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With <セル結合の繰り返しのため中略> Selection.Merge Range("T17:T18").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge Range("A3:E18").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""S""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent5 .TintAndShade = 0.799981688894314 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""D""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$E3=""DP""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 16764159 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
質問日時: 2024/06/28 17:20 質問者: chimchim_yumyum カテゴリ: Visual Basic(VBA)
ベストアンサー
2
0
-
文字2桁、3桁交じりの文字列を並び替えるマクロ
マクロは全く分かりませんが、構文が分かれば使える程度です。 下記例のような文字列を一定条件をもとに並び替えるマクロをご教授ください。 例.XAA*AB-(**A,*A,B*),XAA*AA-(**B,ACB,AB) 正しい並び順→XAA*AA-(**B,AB,ACB),XAA*AB-(*A,**A,B*) 条件:①*優先 ②2文字優先 ③アルファベット若い順 宜しくお願い致します。
質問日時: 2024/06/28 15:42 質問者: コークハメット カテゴリ: Excel(エクセル)
ベストアンサー
3
0
あなたの趣味に関するQ&Aを探してみてください!
おすすめ情報