第1弾は趣味Q&A!
コンピューター・テクノロジーのQ&A
回答数
気になる
-
こんにちは。Excelのことで教えてください。特定のセルへの入力時に、ある特定の文字の入力ができない
こんにちは。Excelのことで教えてください。特定のセルへの入力時に、ある特定の文字の入力ができないように制御するということは可能でしょうか。 例えば、「あ」という文字を入れようとしたら入力できませんというコーションのようなものを出せればなお良いのですが。ご教示いただきますよう、お願いします。
質問日時: 2023/09/27 12:39 質問者: mame1216 カテゴリ: Excel(エクセル)
ベストアンサー
7
0
-
マクロを教えてください。
VBAについて以下の手順のマクロを教えてください。 1. CSVを読み取る 2.CSVのレコード(1行目)とExcelの1行目から横に並んでいる番号と一致したら Excelの2行目からCSVにある2行目(aa,bb等のデータ)のデータを入れたいです。 イメージは↓です、 csv 1行目 000,001,002,003 2行目 aa,bb,cc,dd Excel 1行目 000 001 003 002 2行目 aa bb dd cc ↑ csv1行目が000とExcelの1行目が000の場合、 Excelの2行目にaaを出力(csvのデータを出力) CSVが3行目,4行目あれば Excelも3行目,4行目データが入ります。 (番号一致のみ出力) まとめると csvのキー名とExcelの1行目の値が一致したらそのデータを出力ということがしたいです。
質問日時: 2023/06/01 19:47 質問者: 佐藤知 カテゴリ: Visual Basic(VBA)
ベストアンサー
7
0
-
エクセルで連勤チェックをしたいです。
画像みたいな感じで、5連勤、6連勤、7連勤・・・と、それぞれ連勤があるかないかをチェックをしたいのですが、5連勤以上しか見ることができず、6連勤があっても5連勤もありになってしまいます。関数でこうした処理は不可能でしょうか? マクロもChatGPTと一緒に頑張ってみたんですが、こちらの伝え方が悪いのかどうがんばっても重複処理をしてしまいます。 それぞれの連勤回数を出力するようにできないでしょうか? Sub CountConsecutive() Dim dataRange As Range Dim cell As Range Dim consecutiveCount As Integer Dim output5Consecutive As Range Dim output6Consecutive As Range Dim output7Consecutive As Range Dim output8Consecutive As Range Dim output9Consecutive As Range Dim output10Consecutive As Range Dim set5ConsecutiveCount As Integer Dim set6ConsecutiveCount As Integer Dim set7ConsecutiveCount As Integer Dim set8ConsecutiveCount As Integer Dim set9ConsecutiveCount As Integer Dim set10ConsecutiveCount As Integer Dim isConsecutive As Boolean Dim ignoreCounts As Collection Dim ignoreCount As Integer ' データの範囲を指定(F5:AJ5に合わせて変更) Set dataRange = Range("F5:AJ5") ' 5回連続の結果を出力するセルを指定(AY7に合わせて変更) Set output5Consecutive = Range("AY7") ' 6回連続の結果を出力するセルを指定(AZ7に合わせて変更) Set output6Consecutive = Range("AZ7") ' 初期化 consecutiveCount = 0 set5ConsecutiveCount = 0 set6ConsecutiveCount = 0 set7ConsecutiveCount = 0 set8ConsecutiveCount = 0 set9ConsecutiveCount = 0 set10ConsecutiveCount = 0 isConsecutive = False Set ignoreCounts = New Collection ' データを順に確認 For Each cell In dataRange If cell.value = "出勤" Then consecutiveCount = consecutiveCount + 1 isConsecutive = True Else If isConsecutive Then ' 10回以上連続の場合は無視 If consecutiveCount >= 10 Then ignoreCount = 10 Else ' 5回以上連続の場合 If consecutiveCount >= 5 And Not Contains(ignoreCounts, consecutiveCount) Then set5ConsecutiveCount = set5ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If ' 6回以上連続の場合 If consecutiveCount >= 6 And Not Contains(ignoreCounts, consecutiveCount) Then set6ConsecutiveCount = set6ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If Then set10ConsecutiveCount = set10ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If End If isConsecutive = False consecutiveCount = 0 End If End If Next cell ' データ範囲の最後で5回以上連続している場合 If consecutiveCount >= 5 And Not Contains(ignoreCounts, consecutiveCount) Then set5ConsecutiveCount = set5ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If ' データ範囲の最後で6回以上連続している場合 If consecutiveCount >= 6 And Not Contains(ignoreCounts, consecutiveCount) Then set6ConsecutiveCount = set6ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If ' 結果を出力 output5Consecutive.value = "5回以上連続:" & set5ConsecutiveCount & "セット" output6Consecutive.value = "6回以上連続:" & set6ConsecutiveCount & "セット" End Sub Function Contains(col As Collection, value As Variant) As Boolean On Error Resume Next Contains = (col.Item(value) <> 0) On Error GoTo 0 End Function
質問日時: 2023/12/25 09:14 質問者: jirou9754 カテゴリ: Excel(エクセル)
解決済
7
0
-
PCのメーカーロゴが出るのが遅い 富士通のlifebookAH45なんですが、起動時のロゴが出るのが
PCのメーカーロゴが出るのが遅い 富士通のlifebookAH45なんですが、起動時のロゴが出るのが非常に遅いです。ロゴが出るのに1分ぐらいかかります。ロゴが出たあとは普通なのですが...何か原因があるのでしょうか?
質問日時: 2023/05/23 23:13 質問者: Samo_896 カテゴリ: Windows 10
解決済
7
1
-
License='MIT' ってなんでmitなんですか??適当なのでもいいですか? パイソン
License='MIT' ってなんでmitなんですか??適当なのでもいいですか? パイソン
質問日時: 2023/12/15 11:21 質問者: ゆゆにゃ。 カテゴリ: C言語・C++・C#
ベストアンサー
7
0
-
三井住友銀行のアプリをスマホに入れましたが、これは危険ではないでしょうか?
三井住友銀行のアプリをスマホに入れました。 PCでインターネットバンキングする時と違って、第1暗証さえ入力すれば ワンタイムパスワードも表示されて、スマホ1台で送金などできる。 ワンタイムパスワードは前の様に分離して持つべきだと思いました。 これは危険ではないのかと思いました。 前の電卓型のワンタイムパスワードに戻そうかとも考えています。 危険だと思ったのは私だけでしょうか? お詳しい方おしえて下さい。 よろしくお願いいたします。
質問日時: 2023/05/11 23:47 質問者: kirin006 カテゴリ: その他(コンピューター・テクノロジー)
解決済
7
0
-
会社をクビになるのが先か、自信を持って仕事が出来るのが先か、真人間になるのが先か、ダメになるか
よろしくお願いします。 まだ会社をクビになってはいませんが、自分のパフォーマンス的にもリストラの対象になりそうです。アラフォー男です。 業務に必要となる資格の勉強をしていますが、はっきり言ってついて行けず、部署異動も出来ないため、詰んでいます。 人間関係などで悩んでいるわけではないため、何とか資格を取り会社にしがみつきたいと思っていますが。。。 なかなかパフォーマンスが上がらない自分、資格の取得も出来ない自分、自分に自信がないため、何か会社に提案を出来るスキルも持ち合わせず、リストラが始まれば真っ先に対象となりそうです。。。 行き詰まった人生を何とか打開しようとしていますが、資格の取得の失敗や、なかなか自分で仕事を作り出せないことも有り、言われたことをやるだけで精神的にいっぱいいっぱいです。。。 このまま精神が崩壊してしまえば、成長も出来ず、スキルも身につけられず、中途半端なまま退職となってしまいそうです。 何が先か、クビか、自信を持って仕事が出来るようになることか、精神的に持ち直すか、 いずれにしてもハードルが高く、精神的にきついです。 出口の見えないトンネルと歩いているよう、何もかも諦めた方が楽になれるかも、でも諦めたら路頭に迷うことは確実なので、何とかしがみつきたいのですが。。。 精神に不安を抱えており、現実世界でも行き場所、居場所が見付からない、どこかで誰かが助けてくれるとは思っていませんが、 何とかしたいです。どのような心持ちが重要でしょうか。
質問日時: 2023/02/01 14:22 質問者: nazo0719 カテゴリ: Excel(エクセル)
ベストアンサー
7
0
-
スマホをヘラで開ける時に噛み合わせ?が壊れる時があるらしいですが、どうやったら壊れずに済むのでしょう
スマホをヘラで開ける時に噛み合わせ?が壊れる時があるらしいですが、どうやったら壊れずに済むのでしょうか?
質問日時: 2023/11/14 15:05 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
7
0
-
txtって、 Wordのフォント,サイズが無くなるということはMS明朝がゴシックになるのでしょうか?
txtって、 Wordのフォント,サイズが無くなるということはMS明朝がゴシックになるのでしょうか? txtから→左クリックで→OKでワードを開くのではなく,メモ帳で開くのでしょうか?
解決済
7
0
-
Excelの空文字判定について
Excelの学習をしており、空文字の判定に関してわからないことがあり質問しました。 例えば以下のような関数がA1のセルに書いてあり、B1=C1とします。 =IF(B1=C1,"同じ","") ↑は""(空文字)を入れたくて行っています。 加えてA2-A5には適当な文字列が入っているとします。 A1からA5に対してCOUNTIF関数を使います。結果は以下のようになります。 ① =COUNTIF(A1:A5,"") の場合 -> 1 ② =COUNTIF(A1:A5,"<>") の場合 -> 5 ここで疑問なのですが、なぜ①で空文字が1つと判定されているのに、②で空文字でないものが5つと判定されるのでしょうか?4つと判定されるのが正常な気がします。 Excelの文字列周りについて調べたのですが、自分のググる力が足りず解決できませんでした。 詳しい方、教えていただけると大変助かります。 よろしくお願いします。
質問日時: 2023/01/06 13:25 質問者: tatata_goo カテゴリ: Excel(エクセル)
解決済
7
1
-
パソコンがウイルスに感染してメールアドレスを悪用されます
自分のメルアドを使って、サイトに登録されています。 この度はご登録いただきましてありがとうございます という文章が永遠と入って来ます。 メルアド替えても、すぐに変えたメルアドで登録されてしまうのでキリがない状態です。 ウイルスチェックとマルウェアのチェックはしましたが、感染して物はすべて除去されました。 相手はなぜメルアドを変更した事がわかるのか? 替えたメルアド自体も相手にバレてしまっています。 ウイルスとかもう入っていないはずなのに?
質問日時: 2023/04/05 19:27 質問者: justinHeeHaa カテゴリ: 迷惑メール・スパム
ベストアンサー
7
1
-
「このPCを初期にもどす」実行したら電源が入りません。
ネットで購入した再生パソコン(windows11)印刷等でエラーが頻繁に出るので、回復→このPCを初期にもどす を実行したら最後の方で「再起動します」とのメッセージから電源切れました。 その後、いつ迄たっても電源が入りません。電源ボタンを押してもなんの反応もありません。 廃棄しかないかなあ(涙)。何か方法ありませんか、よろしくお願いします。
質問日時: 2024/06/05 16:51 質問者: aikanrun カテゴリ: Windows Me・NT・2000
解決済
7
1
-
回復ドライブやイメージバックアップやクローンは絶対に作らないといけないのでしょうか?
回復ドライブやイメージバックアップやクローンは絶対に作らないといけないのでしょうか?
質問日時: 2023/10/26 19:03 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
7
0
-
セキュリティソフトについて
パソコンの調子が悪く、MSIのパソコンを購入しました。 ノートン360が入っていました。 https://jp.msi.com/faq/faq-16041 使っていたパソコンのデータを移していくのと同時に、前に使っていたのと同様、インターネットを契約している通信会社がサービスで提供しているマカフィーをインストールしてしまいました。 この場合、 1.そのままふたつともいれていたほうがいい 2.どちらか片方にしたほうがいい のどちらがいいでしょうか。 2の場合は、ノートンとマカフィー、どちらを残しておいたほうがいいか、 も教えてほしいです。
質問日時: 2024/06/02 14:56 質問者: tetsushi_masakari カテゴリ: セキュリティソフト
解決済
7
0
-
なぜこんな初歩的なVBAのIf文でエラーか発生して使えないのか、全く理解出来ません。誰か助けてくださ
なぜこんな初歩的なVBAのIf文でエラーか発生して使えないのか、全く理解出来ません。誰か助けてください。
質問日時: 2022/12/26 23:27 質問者: ゴリゴリモリゴリ カテゴリ: Visual Basic(VBA)
解決済
7
0
-
大企業や政府機関ではWindowsとMacどちらが使われていますか?
大企業や政府機関ではWindowsとMacどちらが使われていますか?
質問日時: 2023/10/21 15:42 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
7
0
-
大量の資料をスキャンしてPDF化しないといけないのですが、1番早くて楽な方法を教えてください。 コピ
大量の資料をスキャンしてPDF化しないといけないのですが、1番早くて楽な方法を教えてください。 コピー機を使ったり、iPhoneを使ったりできます。 なお、新しいアプリとかはインストールできません。 ・製本された書類等 ・複写のペラペラな用紙(コピー機のスキャナーで取り込もうとしたら詰まります) お願いします。。
質問日時: 2024/05/23 08:13 質問者: hanayawarakashi カテゴリ: PDF
解決済
7
1
-
Win11に最適な記憶域について
私のPCでは、記憶域の不足との警告が頻発しています。 そこで、皆様がご使用の究極のPCのスペックをご教授願います。
質問日時: 2022/09/03 14:25 質問者: teo98 カテゴリ: ハッキング・フィッシング詐欺
解決済
7
1
-
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、
コードを直していただきたいです。 以下のコードはネットで拾ったものをほんの少しいじった物なのですが、フォルダに格納してあるxlsファイルの指定範囲をファイル毎にコピーして別ファイルに貼り付けるというものです。 このコードで問題なく動くのですが、このままだとEXCELを開いた時のシートをコピーするだけなのでシートを指定したいと思っています。 自分ではどうも上手くいかなかったのでどこに何を記載すれば良いか教えて下さい。 指定するシート名は全て同じです。 Sub OpenCSVfile() Dim buf As String Dim Path As String Dim LastRow As Long ' このファイルがあるフォルダのパスを取得 Path = ThisWorkbook.Path 'xlsファイルだけを取ってくる buf = Dir(Path & "\" & "*.xls") '該当するファイルが無くなるまでループ Do While buf <> "" '見つけたファイルを開く Workbooks.Open Path & "\" & buf '開いたxlsファイルのコピーしたい範囲を選択 Range("A1:F5").Copy LastRow = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row '貼り付け If LastRow = 1 And ThisWorkbook.Worksheets(1).Cells(1, 1) = "" Then '最終行が1の時かつセルA1が空欄の時(→シートに何も書かれていない時)は1行目に転記 ThisWorkbook.Worksheets(1).Cells(1, 1).PasteSpecial Else 'A1セルに既に文字が入っている時は最終行+1行目に転記 ThisWorkbook.Worksheets(1).Cells(LastRow + 1, 1).PasteSpecial End If 'xlsファイルを閉じる Workbooks(buf).Close '次のファイルを取得 buf = Dir() Loop End Sub
質問日時: 2024/01/10 22:50 質問者: 中山あ カテゴリ: Visual Basic(VBA)
ベストアンサー
7
1
-
PCのメモリ使用率が下がらない
新しい4GB*2のノートPCを買い、初期設定をし、不要なアプリを消し、なるべく軽くするよう設定しました。しかし、依然として何もしていない状態でメモリ使用率が50%辺りを彷徨っています。 windows11 22H2 です。もしかしたらこのバージョンで何か不具合が起きているのでしょうか? それとも大体みんなこんな感じですか?
質問日時: 2022/11/27 19:15 質問者: おこのみやきのそーす カテゴリ: Windows 10
解決済
7
0
-
Office 2021 Professional Plus とは?
ネット検索すると 「個人ユーザーの方がProfessional Plusを使うのはライセンス違反です」 「Microsoft Office 2021永続ライセンス版の中の企業法人向け製品である」等の記事を見ました しかし、 Yahoo!ショッピングで Office 2021 Professional Plus ダウンロード版が597円で販売しているし https://store.shopping.yahoo.co.jp/aifull/microsoft-office-2021-professional-plus.html Yahoo!オークションでも、Office Professional Plus 2021PRO (永年使用版 認証インストール済)の中古パソコンが出品されています。 https://page.auctions.yahoo.co.jp/jp/auction/n1132495140?iref=wbr_6 私は一個人ですが上記より購入もしくは落札してOffice 2021 Professional Plusを使用するとどういう問題が発生しますか? もし問題か発生するのであれば、販売とか出品してる方は問題無いのですか?
質問日時: 2024/04/16 01:28 質問者: sanwaop カテゴリ: その他(Microsoft Office)
ベストアンサー
7
0
-
何故エンジニアさんはMacを使うのか。
何故エンジニアさんはMacを使っている人が多いのですか。YouTubeを見るとほとんどがMacOSですよね。UNIXベースだからとか聞いたりするんですが、具体的な強みを知りたいです。 ビジュアルは超かっこいいですよね。
ベストアンサー
7
0
-
PDFを送って貰う言い方
PDFがメールで送られてきましたが、紙をスキャンしたファイルです。 ワードやエクセルをPDFで保存した時のような綺麗なものを送って貰うためには 相手に何と言えばいいですか? 綺麗な奴送ってくださいで通じますか?
ベストアンサー
7
0
-
H.264の動画をH.265にすることは可能ですか?不可能ですか?
H.264の動画をH.265にすることは可能ですか?不可能ですか?
質問日時: 2023/09/05 18:59 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
7
0
-
このUSBハブを買ったのですが、Amazonにも公式サイトにも対応OSにWindows11が書いてい
このUSBハブを買ったのですが、Amazonにも公式サイトにも対応OSにWindows11が書いていません、、Windows11では使えないのでしょうか? https://amzn.asia/d/gdYlpiU
質問日時: 2023/12/11 14:37 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
7
0
-
記録マクロのみでできますか?
こんばんは。 それぞれファイル名が異なる100つ程あるエクセルファイルを開いて、それぞれのシートの内容を所定のエクセルに貼り付ける作業を自動化したいと思います。 貼り付け元のファイルが数個程であれば記録マクロで簡単にマクロを作れたのですが、100つとなると記録マクロで作るのが厳しいのですが、うまいやり方はありますか? カードを書くことはできませんので、記録マクロのみ使用する方法で教えていただけると助かります。
質問日時: 2022/08/07 20:38 質問者: cocomi2001 カテゴリ: Excel(エクセル)
ベストアンサー
7
0
-
数年前からWindows10 の Update ができないです。なぜですか?
数年前からWindows10 の Update ができないです。 なぜですか!? やばいです。 Windows 10 が入っている SSD ストレージはですが 3割ぐらい空きがあります。 全体1テラ 使用領域 608GB 空き 321GB HDD~SSDに交換してから 出来きなくなった気がします。 以下エラー内容です。 デバイスに重要なセキュリティ修正プログラムと品質修正プログラムがありません。 更新プログラムのインストール中に問題が発生しましたが、後で自動的に再試行されます。この問題が引き続き発生し、Web 検索やサポートへの問い合わせを通じて情報を集める必要がある場合は、次のエラー コードが役立つ可能性があります: (0x800f0922) 以上よろしくお願いいたします。
質問日時: 2022/11/09 06:03 質問者: Campus2 カテゴリ: Windows 10
ベストアンサー
7
0
-
Excel での関数についての質問です。 例えばA列に商品名を、B列に個数をそれぞれ入力しています。
Excel での関数についての質問です。 例えばA列に商品名を、B列に個数をそれぞれ入力しています。B列の個数が 「5」 となっている商品名だけを、C1からC2.C3·····と抜き出し表示したいのですが、良い方法はありますか? よろしくお願いします。
質問日時: 2023/05/13 10:51 質問者: rinvega カテゴリ: Excel(エクセル)
解決済
7
0
-
C言語について教えて欲しいです。 ファイルの中身をコピーするプログラムを作ってます aというファイル
C言語について教えて欲しいです。 ファイルの中身をコピーするプログラムを作ってます aというファイルには11111が入ってるとします。 while(fread(&c,1,1,fpin)==1) { fwrite(&c1,1,fpout) } 解答はこうなってましたが、 freadの返り値は読み込んだデータの個数なので、ここでは1個なのでaのファイルの1個目の1しかコピーできなくないですか? 私は以下のようにしてました。 fread(&c,1,5,fpin); fwrite(&c1,5,fpout);
質問日時: 2022/11/03 19:21 質問者: wpdptgmtg カテゴリ: C言語・C++・C#
ベストアンサー
7
1
-
このノートパソコンはサイトには 「Dell Technologiesはビジネスに Windows 1
このノートパソコンはサイトには 「Dell Technologiesはビジネスに Windows 11 Pro をお勧めします」 と書いてあるのにProを選択するところがないです。、、どうなってるのでしょうか? https://www.dell.com/ja-jp/shop/cty/pdp/spd/inspiron-14-5430-laptop/IN5430FHFDGM2CSMNOJP?gacd=9643257-23732657-5785552-266271997-127759547&dgc=af&VEN1=/Vv6e0WKODg-ggUs0LHLl77EretTSL9oQg&dclid=CP-W0p-T24ADFQFYDwIdKfAGcA
質問日時: 2023/08/14 11:58 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
7
0
あなたの趣味に関するQ&Aを探してみてください!
おすすめ情報