コンピューター・テクノロジー

コンピューターによる高速度に演算、判別、照合をする情報処理が可能になったことで私たちの便利な暮らしは支えられています。コンピューターを形作るOS、ソフトウェア、運用するためのネットワーク、サーバーなどに関してはこちらを参照してください。

回答数

気になる

サクラサーバーにてサーバー契約をしていますが・・・

サーバーの契約満期が近づいています・・・自動延長かどうか調べる方法教えてください

質問日時: 2025/06/08 16:28 質問者: gejigeji1 カテゴリ: サーバー

回答受付中

0

0
【関数】３つのセルの中で最新の結果(１番右のセルにデータあり)を表示する関数について

【やりたい事】以下が画像をご覧ください・B2セルに関数を入れたいです・D1 F1 H1の結果の最新の情報を関数にて返したいです・パターンは図１から４の４パターンのみです【具体例】 ⇒図1⇒B2は空白を返しています。図１は、D1 F1 H1に何も入力されていない為 ⇒図2⇒B2は　あいうえお　を返しています。D1に１つだけ結果がある為です ⇒図3⇒B2は　かきくけこ　を返しています。D1とF1に１つだけ結果がある為です。最新結果の順番は、H1、F1、D1　です ⇒図4⇒B2は　さしすせそ　を返しています。D1とF1とH1に１つだけ結果がある為です。最新結果の順番は、H1、F1、D1　です以上、ご存じの方、関数or関数作成のアドバイスをお願い致します

質問日時: 2025/06/08 16:06 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

回答受付中

1

0
会社のPCを私用で

会社のPCを私用で使うのは悪い事とは分かっていますが…自宅のパソコンが不調で、会社で地域行事の資料をExcelで編集したいです。会社PCのデスクトップに貼り付けると管理者にバレますか？データはUSBだけに保存していればバレないですか？

質問日時: 2025/06/08 10:51 質問者: みょーちぃカテゴリ: ネットワーク

回答受付中

11

0
MacBook Air かMacBook

LE Audioが対応しているMacBook Air かMacBook教えて

質問日時: 2025/06/08 10:17 質問者: sesesd カテゴリ: Mac OS

回答受付中

1

0
Win11 へのRufus とレジストリ書き換えはどう違うんですか？

こんばんは。暑くなってきましたが、雨にもなるそうで、じめっとした感じが続くんでしょうね。みなさんも体調に気を付けてください。古いノートパソコンをWindows11 にしようと思ってるのですが、 Rufus とレジストリ書き換えはどう違うのでしょうか？動画を見てるとRufus でできなかった人はレジストリ書き換えとか言ってたのですが、どう違うのでしょうか？レジストリ書き換えの方が確実なんでしょうか？教えていただけますか？よろしくお願いします。

質問日時: 2025/06/07 19:10 質問者: Love_neko_2023 カテゴリ: Windows 10

回答受付中

3

0
LibreOffice Clalc（またはエクセル）において日祝日の場合に1を返すプログラムは？

お世話になります。 LibreOffice Clalc（またはエクセル）において日祝日の場合に1を返すプログラムを教えてください。 2025年の場合ですと11月2日が日曜日で11月3日が文化の日ですので、その場合に1を返してほしい、という具合です。（つまり、自動的に日祝日であると判断してほしい。）例えばA4が11月2日でA5が11月3日だとする場合に、D4とD5にそれぞれ「１」と表示する方法を教えていただけますと幸いです。

質問日時: 2025/06/07 19:05 質問者: 1888kizm カテゴリ: Excel（エクセル）

回答受付中

4

0
UbuntuでLibreOfficeが消えた。

Ubuntu初心者です。Ubuntuの22.04を24.04にアップグレードしたところLibreOfficeが何処にも見当たりません。再インストールの方法を教えて下さい。

質問日時: 2025/06/07 18:38 質問者: etsu-f カテゴリ: その他（ソフトウェア）

回答受付中

0

0
ホームページのサイトでｈｔｍｌの表示がないのがありますが・・・

ｈｔｍｌ以外での制作になりますか？？？

質問日時: 2025/06/07 17:37 質問者: kakagaga1245 カテゴリ: HTML・CSS

回答受付中

3

0
【マクロ】excelファイルを開くたびに、マクロのコードを自動実行する

【やりたい事】ファイル名取得.xlsmを開くたタイミングで自動で、以下マクロが実行する事は出来ますか？【補足】今は、ファイルを開いて以下マクロを実行して、その後上書きして使っていますマクロファイルには沢山のマクロやマクロと連携している情報が、excel上に記載あり、編集が出来てしまう状態です間違っていじってしまうリスク排除の為読取専用にしたいというのが理由です【マクロが保存されているファイル】 C:\Users\2020\OneDrive\マクロ\フォルダ名取得\フアィル名取得.xlsm 【コード】 Sub ファイル名取得() Dim Path, FileName As String folderpath = "C:\Users\2020\OneDrive\マクロ\フォルダ名取得\" filepath = Dir(folderpath & "*あいうえお*.xlsx") If filepath <> "" Then MsgBox "ファイルは存在します" Range("a1") = filepath Else MsgBox "Sample1.xlsmは存在しません" End If End Sub

質問日時: 2025/06/07 11:25 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

回答受付中

4

0
VirtualBox 6.1 → 7.1 でUbuntuのディスクイメージvdi がw起動しなくな

Win10 の　VirtualBox 6.1 で作成した　Ubuntuのディスクイメージvdi がwin11　の　Virtualbox7.1 でエラーになってUbuntuが起動しません対処方法教えてください

質問日時: 2025/06/06 23:59 質問者: usa3usa カテゴリ: UNIX・Linux

回答受付中

3

0
ホームぺージのcssについて教えてください。

自動的にstyleという保存名がついていますが・・・・記述内の指定文字は検索エンジンは反応しますか？？認識していますか？？？又はあくまで、指示文字との認識でしょうか？？

質問日時: 2025/06/06 22:00 質問者: gejigeji1 カテゴリ: SEO

回答受付中

0

0
You Tube Music をBGMで聴く方法

大抵の音楽アプリは、BGMにして、他のアプリを操作出来ますが、You Tube Music は、閉じると、音楽も、止まって終うのですが、聴きながら、他のアプリを操作する方法を教えて下さい。

質問日時: 2025/06/06 21:23 質問者: ばばちゃんカテゴリ: アプリ

回答受付中

3

0
オプション設定の表示

教えて頂けませんか。電源を入れてもWindowsが起動しない時、問題解決するためのオプション設定の画面がキー操作で表示する方法はないですか。又はBIOSからの操作で表示する方法があればそれでもいいです。

質問日時: 2025/06/06 20:28 質問者: yt16 カテゴリ: その他（OS）

回答受付中

2

0
photoshop camera raw フィルターのGPUが必要と表示されます。

バージョンをダウングレードすると使える様になったと言う人がいましたが、どこまでダウングレードしたら使えますか？

質問日時: 2025/06/06 19:17 質問者: chupaku カテゴリ: Photoshop（フォトショップ）

回答受付中

0

0
LINEのプレミアムについて

デラックスコースの料金を払っていて先月まで問題なく使えていたのに突然、着せかえと絵文字だけ使えなくなりました。対処方法わかるかたいましたら教えてください。スタンプは使えます。フォントなども問題なく使えています。

質問日時: 2025/06/06 18:34 質問者: ねこっちゃんカテゴリ: Illustrator（イラストレーター）

回答受付中

0

0
vba マージエリアの行数を非表示行分減らすことについて教えてください

いつもお世話になりますマージエリアの行数や列数等を取得する際、下記のようにすると思いますがマージエリア内に非表示行があった場合行数を減らして取得することは出来ますか？ Sub Sample4() Dim buf As String With Range("A1").MergeArea buf = buf & .Rows.Count & "行" & vbCrLf buf = buf & .Columns.Count & "列" & vbCrLf buf = buf & .Count & "個" & vbCrLf buf = buf & .Item(1).Address(0, 0) & ":左上" & vbCrLf buf = buf & .Item(.Count).Address(0, 0) & ":右下" End With MsgBox buf End Sub For文で範囲内の非表示行を調べれば良いのですが上記のステートメントのほかに特別なものはないかなと思い聞いてみました出来れば列数のステートメントが有ったら教えてください変な質問で申し訳ございませんが、宜しくお願い申し上げます

質問日時: 2025/06/06 14:59 質問者: 公共ごまカテゴリ: Microsoft ASP

回答受付中

1

0
coPilotにかけられた、制限（？）について

都議選の日程を知りたくて、AIに聞いてみました。質問文は、東京都の選挙はいつか教えて、Copilotの答えは、申し訳ありませんが、残念ながら、選挙は非常に複雑で、私の制限を超えています。私は遠慮させていただき、地域の選挙機関ご担当者などと話し合うことをお勧めします。しかし、私にできるこどはたくさんあります。他を見てみましょう。でしたが、ChatGPTはネットで探して教えてくれました、その事をcopilotに、投げてみました、投げた文章は、Copilotにはいろいろと制限がかけられているようだね、ChatGPTはネット探して教えてくれたけど、それに対してcopilotの答えは、東京都の選挙日程について調べました！東京都議会議員選挙は、6月13日（金）告示、6月22日（日）投開票となっています。また、参議院議員選挙は7月28日に予定されています。でした、初めからそう答えてくれればいいのに、なぜか最初は答えてくれなかったんですよね、答えられる質問に制限がかけられているとしたら、2度目も教えてくれないと思うのですが、ChatGPTが答えてくれたという事に対して対抗心がわいたのでしょうか、どう思われますか。

質問日時: 2025/06/06 12:59 質問者: JJF1961 カテゴリ: その他（コンピューター・テクノロジー）

回答受付中

1

0
入力装置に関しての質問

初めまして。日商PCプレゼン資料3級の勉強をしています。入力装置に関しての質問です。入力装置は、スキャナー、キーボード、マウス、タッチパネルが該当します。スキャナーなんですが、紙に書かれた文字や絵、写真などの情報を画像データとして取り込む装置です。しかし、入力となった場合疑問に感じます。なぜなら、画像として取り込むって、入力じゃない気がします。あんまり頭よくないので、分かりやすく簡単に教えていただけたら、嬉しいです。よろしくお願いいたします。

質問日時: 2025/06/05 23:03 質問者: jmwma カテゴリ: システム

回答受付中

4

0
【関数】=EXACT(a1,b1) a1とb1が空白の場合trueではなく、空白を返すには？

【やりたい事】 C1に　=EXACT(a1,b1)　の関数があります a1とb1が　空白セルの場合　true　を返しますが A1とB1が空白に限り　trueではなく、空白にする関数を教えて下さいなお、A1とB1が同じデータで　true　を返すのは当然必要です宜しくお願いします

質問日時: 2025/06/05 22:24 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

ベストアンサー

4

0
Windows10が起動しなくなりました

画像のような画面が出て進めません。赤丸を付けた修復はやってみましたが修復できませんと出ます。一応、別のPC（SSD・Dドライブ）からWindows10が入ってるCドライブをみるとデータは残ってそうですがWindowsが壊れた（？）可能性がありますよね？この場合、Windowsの入れ直し（USBメモリから復旧？）になると思いますが、アプリやインストールしたソフトなども引き継げますか？または何かよい方法などありますか？ Windowsのシステム的なことはよく分からないので、詳しい方いましたらご教授お願いします。

質問日時: 2025/06/05 22:12 質問者: えま10800 カテゴリ: Windows 10

ベストアンサー

6

1
core i7-4702hq core i7-7500u のどちらを買えばいいですか？

今、他の質問で私のノートくんが壊れてしまったので復旧の方法を質問しています。それとひんしゅくなんですがWindows11 にする新しい中古（笑）を検討しています。今、同じようなお値段、スペック（メモリなど）で Core i7-4702HQ Core i7-7500U の２台が販売されてるのですが、私がこういうの見てもわからないので Intel Core i7-4702HQ vs Intel Core i7-7500U https://versus.com/ja/intel-core-i7-4702hq-vs-intel-core-i7-7500u 詳しい方がどちらを買えばいいかアドバイスいただけないでしょうか？どうぞよろしくお願いします。

質問日時: 2025/06/05 19:33 質問者: Love_neko_2023 カテゴリ: Windows 10

回答受付中

9

0
wordのみ開かない

Microsoftをインストールしましたが、wordのみ開かないです。下記の事項を試してみましたが、いずれも開けませんでした。どうすればwordが立ち上がるでしょうか？状態・wordファイルをダブルクリックしても開いてこない。タスクバーには表示されるが、押しても反応なし・最大化、最小化、移動は押せるが反応なし・セーフモードでは起動できる・他のexcelやoutlookは起動できる・Windows,Officeは最新バージョン試したこと・Microsoft officeのアンインストール　再インストール・オンライン修復・クイック修復・再起動・https://office-qa.com/Word/wd114.htm 上記のサイトの初期化設定メーカー　mouse os Windows 11 Home 64bit

質問日時: 2025/06/05 11:23 質問者: シュウ11 カテゴリ: その他（Microsoft Office）

ベストアンサー

5

0
複数のExcelファイルをマージするマクロ(修正)

' === 他のファイルを順にマージ（Aさん以外） === For Each file In files If file.Path <> baseFile And LCase(fso.GetExtensionName(file.Name)) = "xlsx" Then Dim matchName As String: matchName = "" Dim arrNames As Variant: arrNames = ConstNames() Dim n As Long For n = LBound(arrNames) To UBound(arrNames) If InStr(file.Name, arrNames(n)) > 0 Then matchName = arrNames(n) Exit For End If Next n ' 対象人物が見つからなければスキップ If matchName = "" Then GoTo SkipFile Set mergeWorkbook = Workbooks.Open(file.Path) Set wsOther = mergeWorkbook.Sheets(1) Dim lastRowOther As Long: lastRowOther = wsOther.Cells(wsOther.Rows.Count, 1).End(xlUp).Row For i = 2 To lastRowOther ' 作業者が一致しない行はスキップ If InStr(wsOther.Cells(i, 4).Value, matchName) = 0 Then GoTo SkipRow key = GetRowKey(wsOther, i) If dictBase.exists(key) Then ' === 既存行：値と書式の更新 === Dim rowBase As Long: rowBase = dictBase(key) Dim col As Long For col = 5 To 6 If wsBase.Cells(rowBase, col).Value <> wsOther.Cells(i, col).Value Then wsBase.Cells(rowBase, col).Value = wsOther.Cells(i, col).Value With wsBase.Cells(rowBase, col) .Font.Bold = wsOther.Cells(i, col).Font.Bold .Font.Italic = wsOther.Cells(i, col).Font.Italic .Font.Color = wsOther.Cells(i, col).Font.Color .Interior.Color = wsOther.Cells(i, col).Interior.Color .Font.Size = wsOther.Cells(i, col).Font.Size .Font.Name = wsOther.Cells(i, col).Font.Name End With End If Next col Else ' === 新規行：正しい位置に挿入 === Dim insertRow As Long insertRow = FindInsertPosition(wsBase, dictBase, wsOther, i) wsBase.Rows(insertRow).Insert Shift:=xlDown wsOther.Rows(i).Copy wsBase.Rows(insertRow).PasteSpecial Paste:=xlPasteAllUsingSourceTheme Application.CutCopyMode = False Dim j As Variant For Each j In dictBase.Keys If dictBase(j) >= insertRow Then dictBase(j) = dictBase(j) + 1 End If Next j dictBase.Add key, insertRow lastRowBase = lastRowBase + 1 End If SkipRow: Next i mergeWorkbook.Close False SkipFile: End If Next Function ConstNames() As Variant ' 作業者名のリストを定数として返す ConstNames = Array("Aさん", "Bさん", "Cさん") End Function

質問日時: 2025/06/05 06:16 質問者: fuya0829 カテゴリ: Visual Basic（VBA）

回答受付中

1

0
社内PCの監視範囲について

社内PCはWEBの接続はすぐバレてしまうと思いますが、仕事の進み具合…例えばExcelは開いているがなかなか文字が打ち込まれていない(寝ている)…とかもわかりますか？

質問日時: 2025/06/04 21:43 質問者: みょーちぃカテゴリ: ネットワーク

回答受付中

7

0
OCNを騙るフィッシングメールのリンクをクリックしてしまいました

OCNを騙るフィッシングメールのリンクをクリックしてしまいました「OCNカスタマーサポート」から【OCNサーバーのメッセージ制限についてのお知らせ】という件名のメールが届き、OCNからのメールと思い開けてしまいましたメールボックスの使用容量が、上限に近づいている…という内容で下記リンクより不要なメールの削除をお願いいたします。とあったのでそのリンクをクリックしてしまいました OCNメールのログイン画面になりいつもの見慣れた画面ではあったのですがログインはせずにメールを閉じ OCN　メールボックス　使用容量の確認などのワードで検索し詐欺メールであったことを知りましたログイン画面でパスワードなどは入力しなかったものの詐欺メールのリンクをクリックしてしまったことで不安になりましたこのままこの詐欺メールを削除するだけでいいでしょうか？他になにか対処しなければいけないことはありますか？

質問日時: 2025/06/04 20:16 質問者: 花フキンカテゴリ: ハッキング・フィッシング詐欺

ベストアンサー

2

0
Microsoft365で作ったword文書をpdfに変換する

いつも、ありがとうございます。 Microsoft365で作ったword文書をpdfに変換すると、行間があいた状態で出力されてしまいます。(1ページに収まらない) wordで作ったレイアウトがそのままpdfで出力されてほしいです。方法はありますか？

質問日時: 2025/06/03 22:17 質問者: mapmap1027 カテゴリ: Word（ワード）

ベストアンサー

7

0
「テキストデータで送ってください」と指示があった場合

取引先から、書類を「テキストデータで送ってください」と指示があったのですが、Outlookメールをテキスト形式かHTML形式かリッチテキスト形式の中で、テキスト形式で送ってほしいという意味でしょうか？それとも、文字列だけのメモ(Wordをテキストファイルに変換して)を送ってほしいという意味でしょうか？もしくは、単にWordデータやExcelデータ、PDFデータのことを指して言っているのでしょうか？今更すぎて、初歩的な疑問なのですが、どなたか正解を教えていただけないでしょうか？この場合、書類を何ファイルで送れば間違いないでしょうか？

質問日時: 2025/06/03 16:50 質問者: aya。。。。。カテゴリ: Access（アクセス）

ベストアンサー

5

0
これはインストールプログラムは消えてしまいますよね？

おはようございます。ノートくんがブルースクリーンになってしまいました。いろいろ調べたのですが、復旧できません。検索して下記を見つけたのですがアプリを失うことなくWindows 11をリフレッシュする方法 https://www.ubackup.com/jp/windows-11/refresh-windows-11-without-losing-programs.html#:~:text=%E3%81%93%E3%81%AE%E8%A8%98%E4%BA%8B%E3%81%A7%E3%81%AF%E3%80%81%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0%E3%82%84%E3%83%87%E3%83%BC%E3%82%BF%E3%82%92%E4%BF%9D%E6%8C%81%E3%81%97%E3%81%A6Windows%2011%E3%82%92%E3%83%AA%E3%83%95%E3%83%AC%E3%83%83%E3%82%B7%E3%83%A5%E3%83%BB%E5%86%8D%E3%82%BB%E3%83%83%E3%83%88%E3%82%A2%E3%83%83%E3%83%97%E3%81%99%E3%82%8B3%E3%81%A4%E3%81%AE%E6%96%B9%E6%B3%95%E3%82%92%E3%81%94%E7%B4%B9%E4%BB%8B%E3%81%97%E3%81%BE%E3%81%99%E3%80%82%20%E8%A9%B3%E7%B4%B0%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6%E3%81%AF%E3%80%81%E4%BB%A5%E4%B8%8B%E3%82%92%E8%AA%AD%E3%81%BF%E9%80%B2%E3%82%81%E3%81%A6%E3%81%8F%E3%81%A0%E3%81%95%E3%81%84%E3%80%82,Windows%2010%E4%BB%A5%E9%99%8D%E3%80%81%E3%80%8CPC%E3%82%92%E3%83%AA%E3%83%95%E3%83%AC%E3%83%83%E3%82%B7%E3%83%A5%E3%81%99%E3%82%8B%E3%80%8D%E6%A9%9F%E8%83%BD%E3%81%AF%E3%80%8C%E5%80%8B%E4%BA%BA%E7%94%A8%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E4%BF%9D%E6%8C%81%E3%81%99%E3%82%8B%E3%80%8D%E3%82%AA%E3%83%97%E3%82%B7%E3%83%A7%E3%83%B3%E3%81%A8%E3%81%97%E3%81%A6%E3%80%8C%E3%81%93%E3%81%AEPC%E3%82%92%E5%88%9D%E6%9C%9F%E7%8A%B6%E6%85%8B%E3%81%AB%E6%88%BB%E3%81%99%2F%E3%81%93%E3%81%AEPC%E3%82%92%E3%83%AA%E3%82%BB%E3%83%83%E3%83%88%E3%80%8D%E3%81%AB%E7%B5%B1%E5%90%88%E3%81%95%E3%82%8C%E3%80%81Windows%2011%E3%81%A7%E3%82%82%E7%B6%99%E7%B6%9A%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%81%BE%E3%81%99%E3%80%82 「個人用ファイルを保持する」にしてもインストールしたプログラムは消えてしまいますよね？ご存じの方、いっらしゃいましたら教えてください。よろしくお願いします。

質問日時: 2025/06/03 12:11 質問者: Love_neko_2023 カテゴリ: Windows 10

回答受付中

4

0
【マクロ】【画像あり】❶ブックから別ブックへデータ貼付❷分岐シート①にデータありシート②へ貼付の件

【やりたい事】ブックAからブックBへデータを貼付したい貼付先ブックBのシートは４つある(シート①　シート②　シート③　シート④) ⇒シート①にデータがあった場合、シート②へ貼付をしたい【手順】 1a_20250529123939.xlsx　を開く。下記参考コードあり 2シート①に貼り付けようとする。下記参考コードあり 3シート①の最終行が２行目まである場合⇒次のシート②へ貼付けする ※シート②は最終行が２行目より小さい。貼り付け可能 ※シート①から④は、次のいずれかどっち ⇒パターン１：データが２行目以上ある。パターン２：データが１つもない。空シート 4シート②へ貼り付け 5a_20250529123939.xlsxを閉じる【ファイルパス】貼付元エクセル。シート１つだけ。シート名不規則 C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所\a_20250529123939.xlsx ファイル名⇒a_20250529123939.xlsx 貼付先エクセル C:\Users\user\Documents\ツール\ツール.xlsm 貼付先シート４つ⇒　シート①　シート②　シート③　シート④ ファイル名⇒ツール.xlsm マクロが保存されているファイル C:\Users\user\Documents\ツール\コントロール.xlsm ファイル名⇒コントロール.xlsm 【参考コード】ファイルを開き、シート①へ貼り付けするコード Sub フォルダ内のファイル1つ開く() Dim folder_path As String ' インプットファイルのフォルダパス Dim file_name As String ' 現在処理中のファイル名 Dim file_path As String ' 現在処理中のファイルのフルパス Dim file_count As Long ' フォルダ内のファイル数 Dim src_wb As Workbook ' 処理対象のブックオブジェクト ' フォルダパスの設定 folder_path = "C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所\" ' フォルダ内のファイル確認 file_count = 0 file_name = Dir(folder_path & "*.csv") ' フォルダ内のExcelファイルを取得 Do While file_name <> "" file_count = file_count + 1 ' ファイル数をカウント file_path = folder_path & file_name ' ファイルパスを生成 file_name = Dir() ' 次のファイルを取得 Loop ' ファイル数が1でない場合は、プロセスを終了 If file_count <> 1 Then MsgBox "CSVファイルが2個以上あります" & vbCrLf & _ "CSVファイル: " & file_count, vbExclamation Exit Sub '条件を満たさない場合、これ以上処理を続けないために終了 End If ' 対象ファイルを開く Set src_wb = Workbooks.Open(file_path) ' 貼り付け先のブックを開く Dim wb1 As Workbook filepath = "C:\Users\user\Documents\ツール\ツール.xlsm" Set wb1 = Workbooks.Open(filepath) Dim allsheet As Variant ' シート４つを配列変数に入れる allsheet = Array("シート①", "シート②", "シート③", "シート④") src_wb.Worksheets(1).Cells(1, 1).CurrentRegion.Copy wb1.Worksheets(allsheet(0)).Cells(1, 1).PasteSpecial Paste:=xlPasteValues End Sub

質問日時: 2025/06/03 07:14 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

ベストアンサー

3

0
マイナー保健証で、紙の時より数十円値段が下がると聞いた。どの項目で、下がるのか教えてください。

教えてくださいマイナー保健証を2か月前から利用しています。マイナー保健証を利用すると、紙の時より数十円値段が下がると聞いたのを思い出しました。しかし、同じ治療をすると1円も変わっていません。この病院では、診療費明細書が出ています。どの項目で、マイナー保健証を利用すると下がるのか教えてください。・再診療　750 ・明細書発行体制等加算（再診）10 ・外来管理加算　60 ・特定疾患療養管理料　2250 投薬・処方料　　600 ・一般名処方加算　100 ・特定疾患処方管理加算　560　外来・在宅ベースアップ評価額（1）2（再診時等）20 以上が記載しています

質問日時: 2025/06/03 05:56 質問者: iichiko カテゴリ: その他（コンピューター・テクノロジー）

回答受付中

4

0
ｙｏｕｔｕｂｅで、意図しないところに繋がるウイルス

教えてください。私で、ｙｏｕｔｕｂｅで、馬渕さんの株式クラブを楽しみに見ています。 3日ほど前から、最初馬淵さんを検索しますすると、最近の「アメリカ　関税--」が一番上に出ます。クリックして、見ようとすると、渦の様な絵がぐるぐる回り「wuzuibon.com 今日限定で3本セット5,540円」と表示され、クリックを促しています。 1日おいても、同様な状態です。3回に1回は意図しないところに　接続されます。他の、古い馬淵さんの分は、この様になりません。これって、私のパソコンがウイルスに犯されてるのか接続過程のルータが1部が異状で、意図しないところに繋がるのか皆さんのパソコンで試してみてくれませんかどの様にすると、修復しますか

質問日時: 2025/06/03 05:34 質問者: iichiko カテゴリ: その他（コンピューター・テクノロジー）

回答受付中

2

0
【マクロ画像あり】❶1つの条件一致❷１つの条件に部分一致❸最終行データコピー❶❷❸実現するマクロの件

【やりたい事】下記画像をご覧ください図１のC2セルのデータ【2025/6/3/ 12:00】を図2のB4セルに値貼付けしたい【手順】 1【条件１】図2のA列と本日(today例：6/3)、事例だと6/3を一致(当日作業という意味)を確認 2【条件２】図１のファイル名の先頭【タスクA】と　1行目のタスク名【タスクAアウトバウンド】の部分一部一致を確認⇒図2のB1セル 3B1からの最終行(lastrow)を調べる⇒B3セルと確認 4図1のC2セルの値を、B4セル(lastrow+1,"B")に値貼付けする【ファイルパス】図1↓ C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所\タスクA20250529123939.xls 図2↓ C:\Users\user\Documents\ツール\時間管理シート.xlsx 【ファイル名】図1↓ タスクA20250529123939.xls 図2↓ 時間管理シート.xlsx

質問日時: 2025/06/03 02:07 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

回答受付中

3

0
【マクロ】既存ファイルの名前の先頭に、プルダウン(3種類)のいずれか１種類の名前をつけるためには？

【フォルダの場所】 C:\Users\user\Documents\ツール\ダウンロード場所\ファイル名変更場所 ※ファイルは常に１つしか無い。おかない。 ※既存ファイル　task20250529123939　が置かれる場所【既存ファイルの名前】 task20250529123939 ※ファイル名は上記形式。数字の日付から秒までは変化します ※数字の意味：2025年05月29日12:39分39秒【選択肢。プルダウン】インバウンドあインバウンドいインバウンドう ※既存ファイルの名前の先頭に付けたい名前をプルダウンから手作業で１つ選び　マクロを使い、既存ファイルの先頭に、名前をつける ※プルダウンは3-6種類まで増やす予定【最終的に既存ファイルの先頭にプルダウンより１つ選び、作りたいファイル名】インバウンドあtask20250529123939 ※上記選択肢より、１番目を選んだ場合

質問日時: 2025/06/02 23:52 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

ベストアンサー

4

0
androidアプリ更新DLしたら、アプリの古い要らない部分は自動除去されますか。

androidの各アプリを更新DLしたら、各アプリは新しく置き換えられるので、要らなくなった古い部分は、自動で除去されているのですか。

質問日時: 2025/06/02 23:20 質問者: QRコードはこちらカテゴリ: アプリ

ベストアンサー

2

0
もしかして、これってウィルスですか？？？？？

なんかパソコンが起動しなくなりました。これってウィルスなんですか？？？どうすればいいですか？よろしくお願いします。

質問日時: 2025/06/02 21:15 質問者: Love_neko_2023 カテゴリ: マルウェア・コンピュータウイルス

ベストアンサー

6

0
Macで、Bluethで使用しているマウスの、％の数値を上げるには

かなり初歩的なことかと思うのですが、申し訳ありません。今、Mac（OS 13.6）にて、マウスをBlueth接続で使用しているのですが、メニューバーのところで見ると、「25％」となっています（画像を添付します）。数値が少ないので、0％になる前にどうにかしたいのですが、どのようにすればよろしいのでしょうか。よろしくお願いいたします。

質問日時: 2025/06/02 19:14 質問者: anders_q10 カテゴリ: Mac OS

回答受付中

3

0
サインインのパスワードについて

先日あまりに時間のかかるパソコンの起動の改善に HDDからSSDへの換装しました。トラブルもありましたが、効果は抜群で5分以上かかってたのが1分弱くらいに。そこで思ったのが、いつもパスワードいれるために途中で止めてるサインイン認証を省略したらもっと早いだろうと思ったんですが、これはセキュリティ上やめといたほうがいいでしょうか？

質問日時: 2025/06/02 09:43 質問者: KU1012 カテゴリ: セキュリティホール・脆弱性

ベストアンサー

2

1
【Androidスマホ】の本体上部に表示される通知を見ようとしたら消えてしまいました。

【Androidスマホ】の本体上部に表示される通知を見ようとしたら消えてしまいました。過去の通知履歴を一覧表示で見る方法を教えてください。

質問日時: 2025/06/02 08:42 質問者: redminote11pro5G カテゴリ: Android

ベストアンサー

4

1
Word、図を貼付けると表示されない、行間が狭くてつぶれてしまう、初期設定を変更できますか

詳しい方教えてください。 Word　home and business premium を使っています。 windowsマーク+shift+S マークで画面をコピーし【ctrl＋　シフト＋ V】で貼付けます。そうすると画面が貼付けられているのですが、表示されず、書式の設定→レイアウトで【背面】等にすると表示されるようになります。貼付けた時点では、レイアウトオプションでは【行内】となっています。また、文章を書いて改行すると行間が詰まっているようで文字が潰れてしまい、いつも行間を自分で【1.0】や【1.5】にしています。毎回この作業を行なうのは大変なのですが、デフォルトで画像がちゃんと表示されるように貼付けられ、文章も文字が潰れないような行間の設定二する方法はありますでしょうか。教えていただければと思います。

質問日時: 2025/06/02 05:54 質問者: nazo0719 カテゴリ: Word（ワード）

回答受付中

3

0
Windowsブートマネージャーの起動

タイトルの件でお尋ねします。 Windowsの起動時、一瞬ブートマネージャーが表示されますが正常に起動します。レジストリを一部変更してからこの症状が起こるようになりました。ＰＣの不具合はありません。システムの「起動と回復」の「オペレーティングシステムの一覧を表示する時間」を０にすると表示しないようになりますが、元来は何もしなくてもブートマネージャーは表示されませんでした。レジストリは元に戻しましたがブートマネージャーは表示します。どこに原因があるのか，又正常にするための方法を教えて頂けませんか。

質問日時: 2025/06/01 21:37 質問者: yt16 カテゴリ: その他（OS）

ベストアンサー

2

0
ワードの句読点が変な位置に出てしまいます。どうしたら直せますか。

縦書きの文書で、句読点やかぎ括弧が変な位置に出てしまいます。写真を貼れないので、頑張って説明します。例えば句読点（、。）は本来縦書きではマスの右上に出ますが私の文書では左下に出ます。かぎ括弧は始めの鍵がマスの右側に出て、さらにかぎ括弧が一つ目のかぎも閉じるかぎも普通のかぎ括弧を左へ９０度回転させた形になっています。試しに文章を一部消して書き直しても同じように出てしまいます。また、文書のフォーマットを一度横書きに直すと普通に戻りますが、縦書きに直すとまたおかしな位置に出てしまいます。そして、よく見るとところどころ普通の場所のままになっている個所もあります。どうしてでしょうか。どうしたら直せますか。

質問日時: 2025/06/01 21:10 質問者: allotment カテゴリ: Word（ワード）

回答受付中

3

0
GIMP

今までバージョン2.10を使用していましたが 3.0がリリースされたとのことでインストールしました。 https://freeimage.host/i/F9tq5In 画像左側が2.10で右側が3.0です。ツールボックスのアイコンが小さくて使いづらいので 3.0でも2.10のように表示する設定を教えて下さい。 ※別サイトに画像を上げている理由は今回質問と関係ないので説明はしません。重箱の隅をつつく方は回答しないで結構です。

質問日時: 2025/06/01 16:19 質問者: apbegn カテゴリ: 画像編集・動画編集・音楽編集

ベストアンサー

1

0
Dir関数のDo Whileステートメントにおける１回目と２回目のファイル名の呼出し方法の違い

【質問したい事】以下、コードの　fileName = Dir()　の部分当該コードはファイル名を２回目に呼びだすコードです以下のとおり１回目と２回目の呼出し方法が違うのはなぜですか？１回目の方はしっくりきます。なぜとか、考えずにそいうものと覚えれば良いのでしょうか？ご存じの方、ご指南宜しくお願いします【参考ネットにあった解説↓】 Dir関数は1回目の呼び出しで指定されたファイルを取得しますが 2回目以降の呼び出しでは引数なしで実行する必要がある【１回目】 fileName = Dir(folderPath & "\*.xls", vbDirectory) 【２回目以降】 fileName = Dir() 【コード説明】ダウンロード場所フォルダにある、エクセルファイルの名前を書きだすコード実行後、シートに以下のとおり書き出される a_20250529123939.xls a_20250529123940.xls a_20250529123941.xls a_20250529123942.xls ※ダウンロード場所フォルダには上記４つのエクセルファイルがあります【コード】動きます Sub フォルダのファイル名取得() Dim folderPath As String Dim fileName As String Dim i As Long folderPath = "C:\Users\2020\OneDrive\マクロ\ツール\ダウンロード場所" '1回目の呼び出し fileName = Dir(folderPath & "\*.xls", vbDirectory) i = 1 Do While fileName <> "" Cells(i, 1).Value = fileName '2回目の呼び出し。なぜ、１回目と呼出し方法が違うのは？ fileName = Dir() i = i + 1 Loop End Sub

質問日時: 2025/06/01 12:18 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

ベストアンサー

2

0
【マクロ】【画像あり】ファイル名を別名にて保存。元ファイルはゴミ箱へ移動⇒する方法について

【やりたい事】４つのファイルを１つ転記するたびに ❶　シート①へ転記した後。ファイル名を変更する a_20250529123939.csv　⇒　転記済a_20250529123939.csv ※現在は、wb.Close　←コードより抜粋　'csvを閉じる　コピー元ファイルを閉じているだけです ❷　元ファイルはゴミ箱へ移動したい a_20250529123939.csv⇒ゴミ箱へ移動。※コピー元ファイル ●●●●４回繰り返す●●●● ※ファイルが４個の場合。ファイルは１から４個まで変わります【マクロ説明】下記画像をご覧ください以下画像とコードをご覧ください４つのCSVデータを、別ブックの４つのシートへ１つづつ、順番にコピーするマクロです ※CSVはexcelブックに置き換えて考えて頂いてもOKです。同じです ※４つのCSVデータは、１から４個まで変わります ※CSVデータはエクセルと置き換えてもOKです【マクロの保存されているファイル】※マクロにて指示するファイル C:\Users\2020\OneDrive\マクロ\ツール\コントロール.xlsm 【４つのファイル】※コピー元 "C:\Users\user\Documents\web\ダウンロード場所\a_20250529123939.csv" ※シートは１つしかない。名前は不規則 "C:\Users\user\Documents\web\ダウンロード場所\a_20250529123940.csv" ※シートは１つしかない。名前は不規則 "C:\Users\user\Documents\web\ダウンロード場所\a_20250529123941.csv" ※シートは１つしかない。名前は不規則 "C:\Users\user\Documents\web\ダウンロード場所\a_20250529123942.csv" ※シートは１つしかない。名前は不規則【貼付先】コピー先。下記画像の左上のエクセルファイル C:\Users\2020\OneDrive\マクロ\ツール\ツール.xlsm シート① シート② シート③ シート④ 【ゴミ箱】 C:\Users\2020\OneDrive\マクロ\ツール\ダウンロード場所\ゴミ箱【コード】本サイトアンサーにてご指南頂きました。動きます Sub 貼付先ツールへ転記｡1から4個まで() Const Folder_path As String = "C:\Users\2020\OneDrive\マクロ\ツール\ダウンロード場所" Dim fname As String 'csv Dim wb As Workbook '１個目の、CSVファイル名を取得 fname = Dir(Folder_path & "\*.csv") '貼付先ツール Dim filepath1 As String '貼付先ツール Dim wb1 As Workbook '貼付先ツール Dim ws1 As Worksheet '貼付先ツール filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(1, 1) '貼付先ツール。既に開いている。重くならないかチェック Set wb1 = Workbooks.Open(filepath1) '貼付先ツール Dim sno As Long: sno = 0 '貼付先ツール Dim sname As String '貼付先ツール Dim name_tbl As Variant '貼付先ツール name_tbl = Array("シート①", "シート②", "シート③", "シート④") 'csv Do While fname <> "" Set wb = Workbooks.Open(Folder_path & "\" & fname) sname = name_tbl(sno) wb.Worksheets(1).Cells(1, 1).CurrentRegion.Copy wb1.Worksheets(sname).Cells(1, 1).PasteSpecial Paste:=xlPasteValues 'csvを閉じる wb.Close sno = sno + 1 '２個目の、CSVファイル名を取得 fname = Dir() Loop Worksheets(name_tbl(0)).Activate Cells(1, 1).Select End Sub

質問日時: 2025/06/01 11:09 質問者: aoyama-reiko カテゴリ: Excel（エクセル）

ベストアンサー

2

0
小説を書く際にWordで漢字の横につけるルビって見えにくいけど、一番小さい文字サイズの4の方がいいで

小説を書く際にWordで漢字の横につけるルビって見えにくいけど、一番小さい文字サイズの4の方がいいですか？ルビでも多少は文書のズレが出てしまうので。

質問日時: 2025/05/31 20:14 質問者: まいこさん_2975 カテゴリ: Word（ワード）

解決済

2

0
Wordでレイアウトから文字数と行数を指定して、小説を書いてるんですが、1番下の文字が一つ空白が空い

Wordでレイアウトから文字数と行数を指定して、小説を書いてるんですが、1番下の文字が一つ空白が空いてしまうのですが、どうしたら改善できますか？例えは分かりにくいですが、写真で言うとこんな感じです。即興で小説を書きました。下手くそですが。実際の原稿はここではお見せできないので。ルビを振ると若干の文字ずれは起こりますよね？「ああ、の丸の部分が空きが出てますが、Wordの設定で詰めることってできますでしょうか？こういうのは別に空いていても賞に差し支えはないのでしょうか？原稿用紙のまま送らず、Wordからレイアウトで文字数×行数を指定し、書いて行こうと思いますが、カギカッコやルビを振ると、多少のズレもありますか？

質問日時: 2025/05/31 20:07 質問者: まいこさん_2975 カテゴリ: Word（ワード）

回答受付中

3

0
5単位で繰り上げしたい

セルA1の値を5単位で繰り上げしたい例； 9→10 　　10→10 　　14→15 　　15→15 　　18→20 よろしくお願いします

質問日時: 2025/05/31 17:43 質問者: もっくん3 カテゴリ: Excel（エクセル）

解決済

1

0
CubesoftPDFはAdobe Acrobat Readerを入れなくても使えますか。

PDFはCubesoftを使っています。必要な文書の保存専用です。現在、Adobe Acrobat Readerと共存しています。この二つは連動しているでしょうか？ Adobe Acrobat ReaderをこのPCから削除しても、CubesoftはPDFとして機能しますか？というのは、最近PCを起動する度に、つぎのように出ます。《Adobe Collabsync.exe．プロジャーエントリーポイントCopyFil2ダイナミックライブラリー KERNEL32.dellから見つかりませんが見つかりませんでした。》上記が、PCを起動する度に表示されます。＜Adobe Collabsync.exe．＞を調べてみたら、これはアドビリーダーと同時に入る機能で、他者とPDFの記述を共有するときはたらく機能で、共有していない個人は必要がないとありました。上記の警告を改善するいろいろな方法が書かれていますが、難しくてできません。煩わしいので、Adobe Acrobat Readerを削除しようと思うのです。それでも、PDFはCubesoftだけでOKですか？自分で試してみたら、とのご意見もあるかと思いますが、経験のある方、教えてください。よろしくおねがいします。

質問日時: 2025/05/31 15:01 質問者: onionn カテゴリ: その他（ソフトウェア）

解決済

3

0
世界中で、人気のある、1000万ダウンロード以上のアプリを知りたいです。どうしたら分かりますか？

世界中で、人気のある、1000万ダウンロード以上のアプリを知りたいです。どうしたら分かりますか？

質問日時: 2025/05/31 14:59 質問者: ブリジナ591212 カテゴリ: その他（コンピューター・テクノロジー）

回答受付中

2

0
ダウンロードしたアプリの簡単な概要とカテゴリー別に分類したいです。そのようなことができるアプリありま

ダウンロードしたアプリの簡単な概要とカテゴリー別に分類したいです。そのようなことができるアプリありますか？

質問日時: 2025/05/31 14:58 質問者: ブリジナ591212 カテゴリ: アプリ

解決済

2

0