趣味Q&A一覧 - 教えて!ピックアップ

Mac OS

現在os10.10.5 X yosemiteです。確かバージョンアップすると使用している写真アプリが使えなくなるときいてそのままにしています。この度Zoomをインストールしたかったのですが、バージョン10.12が必要だとでます・・・何か手段はありませんか？

質問日時: 2023/02/08 12:16 質問者: elly-ze カテゴリ: Mac OS

ベストアンサー

7

0

質問です。配列が100以上の場合は、100単位で繰り返し処理を実行したいのですが、どのように処理を

質問です。配列が100以上の場合は、100単位で繰り返し処理を実行したいのですが、どのように処理を書いたら良いでしょうか。全体で200件配列があったとしてイメージとしてはうち100件分の繰り返し処理をして、その100件が終わったら残り100件の繰り返し処理をしたい感じです。全体の件数は201件にもなるし59件とか可変な件数となります。

質問日時: 2023/11/30 11:02 質問者: piraniaman カテゴリ: Java

解決済

7

0

下記のコードは以前、マクロを繰り返し実行される不具合を解決するために、教えて頂いたコードですが、やはり指定セル値指定文字が表示されるとマクロ「省エネ方法」が繰り返し実行されます。例えば「省エネ方法」が実行されて「1」を入力し、（OK）をクリックするともう一度、同じマクロが実行されてしまいます。（キャンセル）をクリックすると次のコードが実行されますが、次のコードで違うマクロを実行すると、またまた「省エネ方法」が実行されます。マクロ「省エネ方法」を繰り返し実行しない方法を教えてください。現状のコード Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("$A$5,$A$13").Text) Is Nothing Then If Range("$A$5").Text = "新築" And Range("$A$13").Text = "手続き必要" Then Call 省エネ方法 End If End If End Sub ちなみに If Not Intersect(Target, Range("$A$5").Text) Is Nothing Or _ Not Intersect(Target, Range("$A$13").Text) Is Nothing Then If Range("$A$5").Text = "新築" And Range("$A$13").Text = "手続き必要" Then Call 省エネ方法 End If End If このコードに変更しても同様です。よろしくお願いいたします。

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

ベストアンサー

7

0

一列の中の金額を他のセルに

画像のように1列のセルに入っているセルの金額を他のセルに書き出すことはできるのでしょうか

質問日時: 2024/03/14 17:11 質問者: tokoro42811 カテゴリ: Excel（エクセル）

解決済

7

0

BIOS の日時がクリアされてしまうのはバッテリー切れということですよね？本体のバッテリー以外にB

BIOS の日時がクリアされてしまうのはバッテリー切れということですよね？本体のバッテリー以外にBIOS 用の本体内蔵電池などがあるのでしょうか？よろしくお願いします。

質問日時: 2023/11/23 15:49 質問者: Love_neko_2023 カテゴリ: Windows 10

ベストアンサー

7

0

お互いのフォルダのやり取りをしたい

日頃同じlanに入っているwin10同士(x,y)でお互いのフォルダを共有したいと思っています。取りあえず、xのフォルダをｙのために共有設定をしようと思いますが、共有設定で「許可を追加」でyを追加する場合、そこにｙが居る（ネットワークに存在している）必要がありますか。やってみたいのですが、今はyが居ないので、パソコンに触れず、確認のしようがありません。宜しくお願いします。どちらもwin10homeです。

質問日時: 2024/07/06 09:37 質問者: nagahaha カテゴリ: Windows 10

ベストアンサー

7

0

ダイナブックのWindows10から11にアップデートできません

Win７から10にアップグレードした東芝ダイナブックT552/58FRです。もう大分前ですが11にアップグレードの案内が来ていました。可能かの判定ページでは「１１にアップデートできません」となりあきらめていました。その後デスクトップ「DELL　optiPlex7020　Windows11インストール済みを中古で購入したところ、Win１０から無理やり１１にアップグレードした機種だと修理専門家に言われました。このデスクトップはWin11で今のところ支障なく使えています。この経験から私のダイナブックも何か手を加えたらWin11にアップグレードできるのではないかと思うのですが。マイクロソフトのアップデート必要条件の中に、「メモリー４GB」と表示の後のほうにRAM16GBの表示もあり、わからなくなりました。メモリーを１６GBにすればアップデートとできるのでしょうか？その他必要な条件はあるのでしょうか？何か方法はありませんでしょうか？よろしくお願いします。ダイナブックのシステムは以下の通りです。＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊デバイス名＊＊＊＊プロセッサ Intel(R) Core(TM) i7-3610QM CPU @ 2.30GHz 2.30 GHz 実装 RAM 8.00 GB (7.90 GB 使用可能) ストレージ 466 GB SSD CT500MX5 00SSD1 グラフィックスカード Intel(R) HD Graphics 4000 (32 MB) デバイス ID 3AC90686-953F-480B-9C7F-0C970F9A08EB 製品 ID 00326-10000-00000-AA698 システムの種類 64 ビットオペレーティングシステム、x64 ベースプロセッサペンとタッチこのディスプレイでは、ペン入力とタッチ入力は利用できません

質問日時: 2025/05/25 10:01 質問者: sikousakug カテゴリ: iOS

ベストアンサー

7

0

EXCELのファイル形式を変更して保存を大量に毎月手動で行っています。社内システムのセキュリティの

EXCELのファイル形式を変更して保存を大量に毎月手動で行っています。社内システムのセキュリティの関係で新規ソフトを入れることはできません。こんな状況下で自動化する方法はありませんか？【状況】フォルダ大分類1,2の中に中分類フォルダA,B,C…があり、小分類フォルダa,b,c…がある。各小分類フォルダa,b,c…の中にCSVファイルを格納し、ファイル名はそのままでCSVファイルをEXCEL形式ファイルへと変更して保存したい。 CSVファイルの格納は人がしますが、格納後の作業を自動化する方法のアドバイスを頂きたいです。

質問日時: 2024/06/19 07:11 質問者: m1tk カテゴリ: その他（開発・運用・管理）

解決済

7

0

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

Excelのマクロの不具合について教えてください。マクロを連続して実行すると一部のマクロがエラーが出て実行できません。解決方法を教えてください。マクロ Sub 審査結果3() Application.Run "行調整" Application.Run "青紙日付" Application.Run "審査結果" Application.Run "シート移動" If Worksheets("審査").Range("S19") = "計画変更" Then Application.Run "審査資料計変" End If Application.Run "上書き保存表示無し" End Sub があります。このマクロを実行すると上から順番にマクロが実行されます。しかし、途中マクロ「Application.Run "審査資料計変"」にエラーが出てこのマクロだけ実行できません。コードは Sub 審査資料計変() Dim TargetFile As String Dim fPath As String, fName As String Dim newfName As String newfName = ThisWorkbook.Sheets("審査").Range("S22").Value & ".pdf" newfName = NGNarrowToWide(newfName) ''メッセージを表示し、実施確認する。 If MsgBox(newfName & vbCrLf & vbCrLf & "審査資料（計変）を作成しますか。", vbExclamation + vbOKCancel) <> vbOK Then Exit Sub ' ファイルのパスを指定 fPath = ThisWorkbook.Path ' ダイアログを表示してファイルを選択 TargetFile = Application.GetOpenFilename("PDFファイル ,*.pdf", , "ファイルを選択", , False) If TargetFile = "False" Then Exit Sub ' ファイル名を変更 If TargetFile = fPath & "\" & newfName Then MsgBox "同名ファイルを選択しています" Exit Sub End If If Not Dir(fPath & "\" & newfName) <> "" Then Name TargetFile As fPath & "\" & newfName Else Dim rc As Integer rc = MsgBox("既に存在する名前です" & vbCrLf & "はいを押すと既存ファイルは削除され" & vbCrLf & "リネームファイルに置き換えられます", 52, "置き換え確認") If rc = vbYes Then Application.DisplayAlerts = False Kill fPath & "\" & newfName Name TargetFile As fPath & "\" & newfName Application.DisplayAlerts = True Else MsgBox "処理を中止しました" End If End If End Sub Public Function NGNarrowToWide(ByVal stg As String) As String stg = Replace(Replace(Replace(Replace(stg, "\", "￥"), "/", "／"), ":", "："), "*", "＊") stg = Replace(Replace(Replace(Replace(stg, "?", "？"), "<", "＜"), ">", "＞"), "|", "｜") stg = Replace(stg, """", Chr(&H8168)) NGNarrowToWide = stg End Function になっており、画像のようなエラーメッセージが出て、コードの内「Name TargetFile As fPath & "\" & newfName」の部分が黄色くなっております。このマクロの前の「Application.Run "審査結果"」のマクロを実行したPDFファイルを Application.Run "審査資料計変"マクロを使用してファイル名を変更するようになっております。解決方法を教えてください。よろしくお願いします。

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

ベストアンサー

7

0

印刷スープラがすぐに停止する

エクセルを印刷しようと思ったのですが、プリンターが選択できず原因を調べると印刷スープラが開始しておらず開始ボタンを押したのですが、すぐに停止してしまう状況です。設定などもスタートアップ時、自動設定に置き換えたり不必要なデバイスを削除したり Remote Procedure Call (RPC)　Remote Procedure Call (RPC) Locaterの設定変更スープラにあるファイル削除フォルダーの権限追加ドライバーの再インストールは停止中につきインストールできずレジストリー初期化などなど試しましたが改善していない状況です。なおPCはもらいものを他の方がWindows11にアップデートしたのですがプリンターを削除するものの元に戻っていたり、起動時になぜか毎回更新作業画面になったりとよくわからない挙動をする状況です。何かお知恵を御貸いただける方いましたらどうぞよろしくお願いいたします。

質問日時: 2025/04/02 22:48 質問者: みにっくすカテゴリ: Windows Vista・XP

解決済

7

0

デバイスが自動回復できない

ディスクトップ、Windows10のデバイスが自動回復できず、下記も試しましたが、回復しません、修理に出しても回復できないのでしょうか？ → Windows 10 がスタートアップ修復に失敗し、再起動ループしてしまう時の対処方法 https://freesoft.tvbok.com/win10/recovery/loop_repair.html

質問日時: 2023/03/03 11:08 質問者: miracara2 カテゴリ: Windows 10

ベストアンサー

7

0

GIMP2で作成した凹み文字を移動したい

写真に背景色と同じ色で、凹み文字を写真に入れています。しかし、入れた文字の位置を移動したいのですが、 net情報を探しましたが見つかりません。（以前どこかで見たような覚えがあるのですが探せません） GIMP2で作成した凹み文字を移動する方法併せて、凹み部分の色の濃さを変更する方法を教えて頂けないでしょうか。当方はやっと皆さんのアドバイスと、net情報でGIMP2を使えるレベルです。

質問日時: 2024/01/05 23:01 質問者: new_hana カテゴリ: その他（ソフトウェア）

ベストアンサー

7

0

この「表示」は互換性ソフトで「Wordではないもの」で合っていますか？

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

解決済

7

1

通常のシャットダウンをしても内蔵ストレージにあるデータは消えませんが完全シャットダウンすると内蔵スト

通常のシャットダウンをしても内蔵ストレージにあるデータは消えませんが完全シャットダウンすると内蔵ストレージにあるデータが消えるのでしょうか？

質問日時: 2023/09/01 12:32 質問者: 東園寺カテゴリ: その他（コンピューター・テクノロジー）

ベストアンサー

7

0

データは削除してもデータは消えていないって本当ですか？なにやら削除したデータのセルに書き込まないとデ

データは削除してもデータは消えていないって本当ですか？なにやら削除したデータのセルに書き込まないとデータは消えないらしいですが、これって本当なのですか？

質問日時: 2023/07/31 12:54 質問者: 東園寺カテゴリ: その他（コンピューター・テクノロジー）

ベストアンサー

7

0

Ｗindows 11の品質、評判は・・・？

ＷindowsというＯＳも、Versionによって、評価が分かれることがあったように思います。　質問ですが、Ｗindows 11の評判はどうですか？　どうぞ教えて下さい。　お願いします。

質問日時: 2024/03/01 20:13 質問者: aoi_sanae カテゴリ: その他（コンピューター・テクノロジー）

ベストアンサー

7

0

Windows11の画面がおかしい

Windows10からWindows11に１週間くらい前に変更しました。昨日、今日と立ち上げた時の画面がおかしいので教えてください。 Windows11を立ち上げると最初にWindows11のデスクトップ画面、青い旗のようなWindows11の画面が表示されます。最近までWindows10の時の画面でした。Windows11に変更してからもWindows10の画面でしたがまずWindows11の画面が立ち上がります。一度再起動をしてみましたらWindows10の画面に戻っていました。私としてはWindows10の画面のまま使いたいのですが、これは何かのエラーでしょうか。改善方法がございましたら教えてください。

質問日時: 2023/04/10 16:41 質問者: じゅねちゃんサクラカテゴリ: iOS

ベストアンサー

7

0

最近スマホ通信量のことをギガって呼んでますが、以前はパケットって呼んでなかったっけ。なんでギガ読み

最近スマホ通信量のことをギガって呼んでますが、以前はパケットって呼んでなかったっけ。なんでギガ読みになったの？スマートフォン

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

ベストアンサー

7

0

教えて!goo でいただいた回答を保存したいです

こんばんは。教えて!goo が終了するので、いままでいただいた大切な回答を保存したいのですが画像ですとURL を開けないですよね？なにか良い保存方法があったら教えていただけませんか？よろしくお願いします。

質問日時: 2025/04/17 21:43 質問者: Love_neko_2023 カテゴリ: ホームページ作成・プログラミング

解決済

7

3

OneNote の代替ソフトは？

OneNote を長年愛用してきたのですが、このところなんとなく使い勝手が悪くなってきた気がするので、他にOneNoteの代替になるようなソフトあれば試してみたいのですが、ご紹介いただけないでしょうか。

質問日時: 2024/09/21 15:30 質問者: kurosuke527 カテゴリ: グループウェア

ベストアンサー

7

0

エクセルみたいな無料表計算ソフト

お世話になります。父母高齢につき、インターネットがない状況です。家電量販店で買える、インターネット不要の　表計算ソフトがあればご推薦のほどよろしくお願い申し上げます。

質問日時: 2024/01/04 20:03 質問者: jdw560 カテゴリ: 会計ソフト・業務用ソフト

解決済

7

0

C言語について。

char文は、intやfloat文と同様で、データ領域を確保しまでは分かったのですが、charTable［20］は、変数名とも配列名とも言っているのですが、変数名と配列名は同じなのでしょうか？教えて頂けると幸いです。

質問日時: 2023/09/15 22:24 質問者: メラゾームカテゴリ: C言語・C++・C#

ベストアンサー

7

0

10進数から2進数に変換例 185 185÷2=92.5 小数点以下切り捨て 91と勘違いしてしま

10進数から2進数に変換例 185 185÷2=92.5 小数点以下切り捨て 91と勘違いしてしまいました。切り捨てというのは小数点以下の数字を切り捨てるだけという覚え方でいいですか？解説お願いします

質問日時: 2025/02/15 14:49 質問者: まろん0330 カテゴリ: その他（プログラミング・Web制作）

ベストアンサー

7

1

2年程前にドスパラで買ったゲーミングPCが壊れたので修理を依頼したいのですが、ドスパラは何かしらの偽

2年程前にドスパラで買ったゲーミングPCが壊れたので修理を依頼したいのですが、ドスパラは何かしらの偽装をした事があるという話を最近知り、パソコン工房に依頼しようと思っているのですが、修理に詳しい回答者様がパソコン修理初心者におすすめする修理屋があれば、教えていただけないでしょうか。カテゴリーは『パソコン』なのですが、そのようなカテゴリーはないのでシステムというカテゴリーで対応させていただきます。

質問日時: 2023/06/02 00:01 質問者: なぜ。カテゴリ: システム

解決済

7

0

Windows10の入っているパソコンに、Windows11も入れて、デュアルブートで使いたいと思い

Windows10の入っているパソコンに、Windows11も入れて、デュアルブートで使いたいと思います。 Windows11も使ってみたいのですが、あるソフトがWindows10にしか対応していなくて、Windows10と Windows11両方をデュアルブートで使えたらと考えてます。 Windows10とWindows11をデュアルブートする場合、Windows 10とWindows 11の両方の有効なライセンスを持っている必要がありますか？また、Microsoftアカウントも、二つ必要ですか？デュアルブートした場合、Windowsアップデートとかで、何か不具合起こることありますでしょうか？何かデメリットとかもあるでしょうか？教えていただけないでしょうか？よろしくお願いします。

質問日時: 2023/12/25 11:54 質問者: aozora50 カテゴリ: Windows 10

解決済

7

0

【PDF結合】PDFをフリーソフトや有料版を使うことなく、結合する方法を教えて下さい

標題の件、方法があれば、教えて下さい２つや３つのPDF（A4）を、１つのPDFに結合する方法です宜しくお願いします

質問日時: 2024/08/27 06:43 質問者: aoyama-reiko カテゴリ: PDF

ベストアンサー

7

0

Excelで写真のような表を作った時、毎月鍵の所有者が変わります。所有者が毎月変わるため表が右に伸び

Excelで写真のような表を作った時、毎月鍵の所有者が変わります。所有者が毎月変わるため表が右に伸びていきます。表には記載していませんが毎月所有者が変わらない鍵もあるため、C〜Fを非表示には出来ません。毎月の所有者を更新したらB2セルの所有者欄に自動的に反映させる方法を教えてください。現状ですと加藤ですが、4月に別の名前を入力した時にB2セルに反映させる。尚、4月に名前を入れると同時に確認者も入力しますが、こちらは反映させない。

質問日時: 2024/04/11 19:20 質問者: 19730928 カテゴリ: Excel（エクセル）

ベストアンサー

7

0

ハイフン無しの電話番号でどうやって市外局番を判別してるの？

http://purelife.fc2web.com/shigaikyokuban.html 市外局番一覧を見ていて思ったんですが、頭の数桁が共通してる番号がありますよね。例えば同じ千葉でも千葉と佐倉は「043」ですが、市原だと一桁増えて「0436」、木更津も4桁目が違って「0438」人が見る場合はハイフンで区切ることで、どこが市外局番かは分かりますね。電話の交換機とかはハイフンなんて概念はなくて、連続で打ち込まれる番号から市外局番を判断してるはずですが、どこまでが市外局番で、どこからが市内局番だとどうやって判別してるんでしょうか？市外局番は4桁までですから、まずは4桁目までで検索してみて合致するものがあれば良し、なければ今度は3桁目までで検索して合致するものがあれば良し、それでも見つからなければ2桁目までで検索という形？でもこの方法だと千葉と佐倉みたいに同じ番号だとどっちか分からないですよね？どうやって判別してるんでしょうか？千葉と佐倉で市内局番が違うとかで、そういうので判別？

質問日時: 2024/08/20 21:14 質問者: どちてオジサンカテゴリ: その他（コンピューター・テクノロジー）

ベストアンサー

7

2

外付けSSDは買ってから、すぐに使えるのですか？それとも何かをする必要があるのでしょうか？

質問日時: 2023/12/04 14:22 質問者: 東園寺カテゴリ: その他（コンピューター・テクノロジー）

ベストアンサー

7

0

再質問です。マクロの修正箇所を教えてください。

データの過不足を確認するマクロを作成してみました。（毎年使うので、フィルタや関数ではなくマクロを作っておきたい）１０行×３０列で動作確認したんですが、１００００行×A～JQ列までの大量データでは時間がかかってしまい強制終了、一度も作業が完了していません。ちなみに１行目にはスペースの列もあり、同列の作業を行わないようにするやりかたも教えていただければ… Sub 過不足チェック() '定義 Dim ws As Worksheet Dim cell As Range Dim lastRow As Integer Dim lastCol As Integer ' シート名は適宜変更 Set ws = ThisWorkbook.Sheets("Sheet1") ' 塗りつぶしのクリア ws.Cells.Interior.ColorIndex = xlNone ' 範囲指定（最終行、列まで） lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row '1列目の最終行をカウント lastCol = ws.Cells(2, Columns.Count).End(xlToLeft).Column '2行目の最終列をカウント For Each cell In ws.Range(Cells(3, 3), Cells(lastRow, rng)) '未検査項目チェック（必須項目漏れに黄色を設定） ' A列（年齢）<30　かつ　1行目（年代別検査項目）=20　または ' A列（年齢）>=30 <40　かつ　1行目（年代別検査項目）<=30　または ' A列（年齢）>=40 <50　かつ　1行目（年代別検査項目）<=40　または ' A列（年齢）>=50　かつ　1行目（年代別検査項目）<=50　または ' B列（性別）女　かつ　A列（年齢）偶数　かつ　1行目（年代別検査項目）=1（子宮がん）　または ' B列（性別）女　かつ　A列（年齢）>=40　＆　偶数　かつ　1行目（年代別検査項目）=2（マンモ）のセルが '空白以外なら… If (ws.Cells(cell.Row, "A").Value < 30 And ws.Cells(1, cell.Column).Value = 20) Or _ (ws.Cells(cell.Row, "A").Value >= 30 And ws.Cells(cell.Row, "A").Value < 40 And ws.Cells(1, cell.Column).Value <= 30) Or _ (ws.Cells(cell.Row, "A").Value >= 40 And ws.Cells(cell.Row, "A").Value < 50 And ws.Cells(1, cell.Column).Value <= 40) Or _ (ws.Cells(cell.Row, "A").Value >= 50 And ws.Cells(1, cell.Column).Value <= 50) Or _ (ws.Cells(cell.Row, "B").Value = "女" And ws.Cells(cell.Row, "A").Value Mod 2 = 0 And ws.Cells(1, cell.Column).Value = "子宮がん") Or _ (ws.Cells(cell.Row, "B").Value = "女" And (ws.Cells(cell.Row, "A").Value >= 40 Or ws.Cells(cell.Row, "A").Value Mod 2 = 0) And ws.Cells(1, cell.Column).Value = "乳がん") Then If cell.Value = "" Then ' 黄色を設定 cell.Interior.ColorIndex = 36 End If End If '追加項目チェック（必須項目以外＋データありにピンクを設定） ' A列（年齢）<30　かつ　1行目（年代別検査項目）>=30　または ' A列（年齢）>=30 <40　かつ　1行目（年代別検査項目）>=40　または ' A列（年齢）>=40 <50　かつ　1行目（年代別検査項目）=50　または ' B列（性別）女　かつ　A列（年齢）奇数　かつ　1行目（年代別検査項目）子宮がん　または ' B列（性別）女　かつ　A列（年齢）<40　or　奇数　かつ　1行目（年代別検査項目）乳がんのセルが '空白以外なら… If (ws.Cells(cell.Row, "A").Value < 30 And ws.Cells(1, cell.Column).Value >= 30 And ws.Cells(1, cell.Column).Value <= 50) Or _ (ws.Cells(cell.Row, "A").Value >= 30 And ws.Cells(cell.Row, "A").Value < 40 And ws.Cells(1, cell.Column).Value >= 40 And ws.Cells(1, cell.Column).Value <= 50) Or _ (ws.Cells(cell.Row, "A").Value >= 40 And ws.Cells(cell.Row, "A").Value < 50 And ws.Cells(1, cell.Column).Value = 50) Or _ (ws.Cells(cell.Row, "B").Value = "女" And ws.Cells(cell.Row, "A").Value Mod 2 = 1 And ws.Cells(1, cell.Column).Value = "子宮がん") Or _ (ws.Cells(cell.Row, "B").Value = "女" And (ws.Cells(cell.Row, "A").Value < 40 Or ws.Cells(cell.Row, "A").Value Mod 2 = 1) And ws.Cells(1, cell.Column).Value = "乳がん") Then If cell.Value <> "" Then ' ピンクを設定 cell.Interior.ColorIndex = 22 End If End If Next cell End Sub

質問日時: 2024/07/18 11:11 質問者: しらいし302 カテゴリ: Excel（エクセル）

ベストアンサー

7

0

第1弾は趣味Q&A！

コンピューター・テクノロジーのQ&A

あなたの趣味に関するQ&Aを探してみてください！