第1弾は趣味Q&A!
コンピューター・テクノロジーのQ&A
回答数
気になる
-
C言語関数違いについて。
printf、scanf関数:標準入出力に対して使用 fprintf、fscanf:ファイルに対して使用 sprintf、vsprintf、sscanf:メモリに対して使用 とあるのですが、これらの関数の違いが分かりません。教えて頂けると幸いです。
質問日時: 2023/10/28 21:04 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
39
0
-
C言語 コマンドプロンプトについて。
windows 11で、C言語をDOS窓から使いたいのですがどうすれば良いのでしょうか?教えていただけると嬉しいです。
質問日時: 2023/02/26 09:15 質問者: メラゾーム カテゴリ: C言語・C++・C#
ベストアンサー
36
0
-
エクセルVBA、別ブックへ転記する。についてご質問
初めまして、VBA初心者です。 エクセルVBAについてご教示お願いします。 A列 B列 C列 D列 E列 管理番号 名称 投資 計上 金額 BP00100FUJITA 小型機 2024/09 2024/10 4,000 BP00300TAKEDA 転写機 2024/10 2024/10 6,000 BP00500ENDO 電気炉 2024/09 2024/09 8,000 BP00501ENDO 測定装置 2025/05 2025/02 5,000 上記のようなデータがあり、これを添付のデータに転記したいのです。 添付のものは同じ形式で投資用・計上用があります。 質問としまして ①A列(管理番号)のBP●●500~とBP●●501~を、添付の11~14行目(同じ名称)の該当する月度に金額を転記することは可能でしょうか? ②C列の投資、D列の計上の月度が違う場合、それぞれ添付の投資エクセルには●月度、計上エクセルには●月度、に金額を転記することは可能でしょうか? 出来ればサンプルコードをいただけると助かります。。
質問日時: 2024/05/16 23:01 質問者: maaaaatam カテゴリ: Excel(エクセル)
ベストアンサー
30
0
-
ITの見積もりってなんであんなに高いんですか? 原価がかからないのに
ITの見積もりってなんであんなに高いんですか? 原価がかからないのに
質問日時: 2024/04/23 14:21 質問者: だいぬ カテゴリ: その他(ソフトウェア)
ベストアンサー
28
0
-
時代はSSDなのにネットの最近の投稿を見てるとSSDではなくHDDの話をする人がいます。そういう人っ
時代はSSDなのにネットの最近の投稿を見てるとSSDではなくHDDの話をする人がいます。そういう人ってなんでHDDが好きなのですか?HDDがSSDに勝ってる点なんて1つもないのに
質問日時: 2023/10/22 15:53 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
21
0
-
タイムマシンが実現したら、成立しなくなる業界って、競馬、競輪等のギャンブル系、保険業界、先物取引以外
タイムマシンが実現したら、成立しなくなる業界って、競馬、競輪等のギャンブル系、保険業界、先物取引以外に何かありますかね? とりあえず、思いつくものを列挙してみましたが…
質問日時: 2023/02/19 11:24 質問者: dgyqy カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
20
1
-
Windows XP プロダクトキーについて教えてください
今日は盛夏になりましたが、みなさんも熱中症に注意してくださいね。 今回の質問はWindows XP プロダクトキーについてです。 あまりわかってないんですが Windows 95 の 「ときめきメモリアル」 をいただいたのでプレイしようと、皆さんに回答いただき、あれこれしたのですがWindows 10 では無理と判断しました。 それでWindows XP の仮想PC(あんまりわかってない 汗)というのを作ってテストしようと思っています。 必要なのはインストールディスクとプロダクトキーということで探しています。 今、見つけたのは SHARP PC-GP2-C1M というWindows XP のジャンク品です。 添付品は プロダクトリカバリーディスク 本体(裏面にプロダクトキーのシールが貼ってある) なんですが、これを購入すればいいのでしょうか? 教えていただけますでしょうか? よろしくお願いします。 では今日は、おやすみなさいませ。
質問日時: 2023/07/04 23:59 質問者: Love_neko_2023 カテゴリ: Windows 10
ベストアンサー
20
1
-
C言語 バッファについて。
コンピューターとプログラムのバッファが1GBある時に2MBを使う時、残りのバッファは998MB残っていますがこれは使い終わったら、また2MB戻って来てまた元の1GBになるらしいのですが、これは、(使い終わったら元の1GBになる)プログラムが消えていくのはありえないからでしょうか?教えて頂けると幸いです。
質問日時: 2023/10/13 20:43 質問者: メラゾーム カテゴリ: C言語・C++・C#
解決済
20
0
-
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 現在、下記のようなコードで作業してるのですが、マクロの実行をするととても時間がかかり困ってます。転記元のデータ数が、日々増えており日に日にかかる時間が増えてます。良い方法はご教授いただきたいです。よろしくお願いします。 Option Explicit Const Scrbook As String = "●●●.xlsx" Const Folder As String = "○○○" Public Sub sheet1() Dim dict As Object Dim maxrow3 As Long Dim row3 As Long Dim key2 As Variant Dim sh3 As Worksheet Dim Vals As Variant Dim sname As String Dim row2 As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set dict = CreateObject("Scripting.Dictionary") Workbooks.Open Filename:=Folder & "\" & Scrbook, ReadOnly:=True, UpdateLinks:=0 Call GetlDs("●●●", dict) ThisWorkbook.Activate Set sh3 = Worksheets("Sheet1") maxrow3 = sh3.Cells((Rows.Count), "F").End(xlUp).row For row3 = 4 To maxrow3 key2 = sh3.Cells(row3, "F").Value If dict.exists(key2) = True And sh3.Cells(row3, "H") = "" Then Vals = Split(dict(key2), "|") sname = Vals(0) row2 = Vals(1) sh3.Cells(row3, "E").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "C").Value sh3.Cells(row3, "G").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "Z").Value sh3.Cells(row3, "H").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "H").Value sh3.Cells(row3, "I").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "G").Value sh3.Cells(row3, "J").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "L").Value sh3.Cells(row3, "K").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "K").Value sh3.Cells(row3, "M").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "DQ").Value sh3.Cells(row3, "O").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "T").Value sh3.Cells(row3, "P").Value = Workbooks(Scrbook).Worksheets(sname).Cells(row2, "V").Value Else 'sh3.Cells(row, "E").Value = "" 'sh3.Cells(row, "G").Value = "" 'sh3.Cells(row, "H").Value = "" 'sh3.Cells(row, "I").Value = "" 'sh3.Cells(row, "J").Value = "" 'sh3.Cells(row, "K").Value = "" 'sh3.Cells(row, "M").Value = "" 'sh3.Cells(row, "O").Value = "" 'sh3.Cells(row, "P").Value = "" End If Next Workbooks(Scrbook).Close Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Private Sub GetlDs(ByVal sname As String, ByVal dict As Object) Dim maxrow As Long Dim row As Long Dim key As Variant Dim sh3 As Worksheet Set sh3 = Worksheets(sname) maxrow = sh3.Cells((Rows.Count), "A").End(xlUp).row 'ID For row = 2 To maxrow key = sh3.Cells(row, "A") dict(key) = sname & "|" & row Next End Sub
質問日時: 2022/07/26 13:07 質問者: mahi-mahi カテゴリ: Visual Basic(VBA)
ベストアンサー
19
1
-
BIOSupしなくてはダメですか?
また、お世話になります。 タイトルのとおりですが、下記サイトで書かれているんですが、該当しなければ、PCは起動しませんよね?(自分のパソコンがそれに当てはまっているかも良く判らないです) わかる方、教えて下さい。 https://www.nichepcgamer.com/archives/amd-ryzen-etc-vulnerabilities-january-2023.html
質問日時: 2023/09/22 17:32 質問者: ナミカゼ カテゴリ: Windows 10
ベストアンサー
18
0
-
Live Linux というのを勉強したいです
こんにちは。 Live Linux というのを勉強したいでのですが、いろいろ な種類があるようですが、どれを勉強すればいいのか教えて いただけませんか? 私のスキルはWindows 10 を普通に使えるぐらいです。 どうぞよろしくお願いします。
質問日時: 2023/07/11 16:45 質問者: Love_neko_2023 カテゴリ: UNIX・Linux
ベストアンサー
18
0
-
Windows11でMP3 CDを作る方法
Windows11でMP3 CDを作る方法を教えてください。 この作成したCDはMP3対応のplayerで再生できることが条件です。 パソコンだけで再生できるCDはNGです。 民間(VAIO、富士通、NEC、パナソニック等)のWindows11に入っている 書き込みソフトは使わないで Microsoft社のWindows11のみで作成する方法を教えてほしいです。 Audio CDとして作成する方法はNGです。 上記の記述で少しでも理解できないことがあれば投稿はおやめください。 リンク先を提示する方法はNGとします。 実際に自分でやった方法でお願いします。 あまりに、ろくに読まないでまた理解しないでポンと投げる無責任な投稿が多すぎます。
質問日時: 2022/10/17 19:17 質問者: LHS07 カテゴリ: Windows 10
解決済
17
1
-
指定した条件で行セルを非表示にする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
-
AIの登場でプログラマーたちが解雇されていますが
ではそのAIに指示するのは誰ですか? 会社には社長、部長、文系一般職、プログラマーがいると思います。 AIによってプログラマーが解雇されたので社長、部長、文系一般職が残りました。 誰がAIに指示してアプリやシステムを作るのですか?
質問日時: 2024/05/24 10:42 質問者: peachapple5738 カテゴリ: その他(プログラミング・Web制作)
解決済
17
0
-
ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。
企業テーブルのIDをキーに、個人情報テーブル①と②が同じメアドの場合は横並びで、違う場合は隣は空欄にしたく、メアドがどちらもない場合は、企業名だけ表示させたいと思っております。 ▼企業情報テーブル ID 会社名 1 あああ 2 いいい 3 ううう 4 えええ ▼個人情報テーブル① ID ①のメアド 1 aaa@co.jp 1 bbb@co.jp 2 ccc@co.jp ▼個人情報テーブル② ID ②のメアド 1 bbb@co.jp 2 ddd@co.jp 2 eee@co.jp 3 fff@co.jp ▼アウトプットイメージ ID 会社名 ①のメアド ②のメアド 1 あああ aaa@co.jp 空欄 1 あああ bbb@co.jp bbb@co.jp 2 いいい ccc@co.jp 空欄 2 いいい 空欄 ddd@co.jp 3 ううう 空欄 fff@co.jp 4 えええ 空欄 空欄 実際にIDを結合してクエリを実行すると 以下のように同じメアドが繰り返され空欄にはならず ①と②のメアドが同じものが横並びになりません。。 ID 会社名 ①のメアド ②のメアド 1 あああ aaa@co.jp bbb@co.jp 1 あああ bbb@co.jp bbb@co.jp 2 いいい ccc@co.jp ddd@co.jp 2 いいい ccc@co.jp eee@co.jp 3 ううう 空欄 fff@co.jp 4 えええ 空欄 空欄 アウトプットイメージのように出すのは難しいでしょうか?
質問日時: 2022/08/15 20:34 質問者: YKYKYK_2022 カテゴリ: SQL Server
ベストアンサー
17
0
-
ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています
古いプログラムで10年以上使っています。 一番下のフォルダには、以前古いエクセルファイル Excel 97-2003 ワークシート (.xls) が入っていました。(簡単なマクロも入っています) そのファイル群の合計データの一部を項目別に入荷集計表に反映するプログラムです。 マイクロソフトで古いエクセルファイルのサポートが終わっていましたので、ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています。 対応方法をご教授いただけると大変助かります。 FileSearch2007が使えなくなったことも原因かなと思うのですが、 どうしてもわからなく困っています。 新しいファイル検索のプログラムがあるようなのですが、 初心者のため、理解が難しく非常に困難な状況に置かれています。 最新のエクセルで動作するようプログラムを教えていただけるでしょうか。 現在のプログラムは下記にあります。 "C:\Users\ユーザーアカウント名\Desktop\在庫表\受払.xlsm" このプログラムを使って、 C:\Users\ユーザーアカウント名\Desktop\在庫表\在庫表詳細\顧客にある*.xlsm"ファイルを検索して別の集計表に反映するプログラムです。 どうか、よろしくお願いいたします。 -------以下プログラム------- Dim FAR(1999), AR(1999, 9), ゼロ表示, 件数, 最終行 Dim wkDate As Date Sub P11_フォルダ内容書出し() 記入済データを消去_11 進度表示_11 パス名Book名を配列ARに格納_11 個別Bookの内容を配列に格納_11 配列の内容をシートに記入_11 並び替え_11 End Sub '*---------------------------------------------------------------------------------* Function 記入済データを消去_11() Worksheets("入荷集計表").Activate Application.DisplayAlerts = False Application.ScreenUpdating = False Msg = "シート「入荷集計表」を最新の状態に更新します。実行しますか?" msg_rt = MsgBox(Msg, vbYesNo) If msg_rt <> vbYes Then End If Range("B4") <> "" Then Rows("4:" & 1999).Delete Shift:=xlUp End If If IsDate(Range("G2")) Then wkDate = CDate(Range("G2")) Else wkDate = CDate("2060/12/31") End If Debug.Print Format(wkDate, "yyyy/mm/dd") End Function '*---------------------------------------------------------------------------------* Function パス名Book名を配列ARに格納_11() k = -1 target_path = ThisWorkbook.Path target_extention = UCase("xlsm") Set found_file = FileSearch2007(target_path, target_extention) 件数 = found_file.Count If 件数 = 0 Then MsgBox "*.xlsmファイルがないため処理を終了します。" End End If For i = 1 To 件数 If Right(found_file(i), 10) <> "フォーマット.xlsm" And _ Right(found_file(i), 7) <> "在庫表.xlsm" Then k = k + 1 FAR(k) = found_file(i) End If Next End Function '*---------------------------------------------------------------------------------* Function 個別Bookの内容を配列に格納_11() '合計の行をFIND関数で検索する Do~Loopは時間がかかるため Dim Idx1 As Integer k = -1 For i = 0 To 1999 If FAR(i) = "" Then Exit For Workbooks.Open Filename:=FAR(i), UpdateLinks:=0 '外部リンクを表示しない For Idx1 = 7 To 1000 If Range("C" & Idx1) = "" Then Exit For End If k = k + 1 AR(k, 0) = FAR(i) AR(k, 1) = Range("E1") AR(k, 2) = Range("M2") AR(k, 3) = Range("C2") AR(k, 4) = Range("H2") AR(k, 5) = Range("C3") AR(k, 6) = Range("B" & Idx1) AR(k, 7) = "'" & Range("C" & Idx1) AR(k, 8) = Format(Range("Z" & Idx1), "0.0") AR(k, 9) = "'" & Range("AF" & Idx1) Next Idx1 件数 = k ActiveWorkbook.Close Next i End Function '*---------------------------------------------------------------------------------* Function 配列の内容をシートに記入_11() Workbooks("RCM受払.xlsm").Worksheets("入荷集計表").Activate 行 = 3 For i = 0 To 件数 If AR(i, 0) <> "" Then If AR(i, 8) <> 0 And AR(i, 6) <= wkDate Then 行 = 行 + 1 For j = 1 To 9 'B列:P列 Cells(行, j) = AR(i, j) Next Cells(行, 10) = AR(i, 0) End If End If Next 最終行 = 行 End Function '----------------------------------------------------------------------------------------*
質問日時: 2022/12/07 12:03 質問者: VBA_muzukashii カテゴリ: Visual Basic(VBA)
ベストアンサー
17
3
-
政府のPDFを見るのにAdobeReaderを使わないといけないのは宗主国のアメリカ様に利益を差し上
政府のPDFを見るのにAdobeReaderを使わないといけないのは宗主国のアメリカ様に利益を差し上げるためですか? 未だにPDFなんて時代遅れのもの使って迷惑です。普通のサイトにしてほしいです
質問日時: 2023/05/01 14:05 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
16
1
-
大企業はフリーソフトを入れないらしいですが何故なのですか?不便じゃないのですか?
大企業はフリーソフトを入れないらしいですが何故なのですか?不便じゃないのですか?
質問日時: 2023/12/18 13:27 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
16
1
-
パソコンの動きが遅い(重い)時の解消法を教えて下さい。 使っているパソコンはWindows10です。
パソコンの動きが遅い(重い)時の解消法を教えて下さい。 使っているパソコンはWindows10です。
質問日時: 2023/04/04 21:37 質問者: レイジングストーム カテゴリ: Windows 10
ベストアンサー
15
1
-
プログラマーと学歴の関係性について
プログラマーになるにあたって、 有名大学を卒業することで享受されるメリットを教えて下さい。 そしてそのメリットは、有名大学を卒業しなくても、 努力次第で手に入れることは可能でしょうか?
質問日時: 2024/04/26 00:21 質問者: 124590001 カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
15
0
-
テーブルのセルデータを自動改行させずに、はみ出た部分は切り捨てたい
いつもお世話になっています。 テーブルで、スマホ等の横幅が狭い画面で見た場合には、自動改行するのでなく、1行で表示できるように後尾を非表示にするには、どうすれば良いですか。 一番簡単な方法をご教示ください。
ベストアンサー
15
0
-
解決済
15
1
-
エクセルでセルの文字列から年月を抜き出して今日の日付と比較したい
おせわになります。 セルに文字列が入っていて、その中の決まった場所の数字が年月の数値なのですが、これと今日の月が正しいかを比較して、違っていれば条件付き書式で赤字になるようにしたいのですが。 例えば7月の場合、B10にAX227Z123というように 左端から3つ目から3桁が年月になっているのですが、10、11,12月になると10月の場合、左から3つ目から4桁AZ2210S98が年月になってしまいます。 このような場合の条件付き書式で当月と違った場合赤字になるような式を教えて頂きたく。
質問日時: 2022/07/29 14:39 質問者: 教えてOK知恵袋 カテゴリ: Excel(エクセル)
ベストアンサー
15
0
-
ベストアンサー
15
0
-
エクセル ご教授ください 例えば、対象セルに、 =IF(U31=10000,0,AS31✖️1350
エクセル ご教授ください 例えば、対象セルに、 =IF(U31=10000,0,AS31✖️1350) とした時に 10000ちょうどの数字でも、AS31✖️1350で 返してくるにはどうしたらいいでしょうか。 宜しくお願い致します。
質問日時: 2023/04/21 13:43 質問者: ひちひち カテゴリ: Excel(エクセル)
ベストアンサー
15
0
-
vba
お世話になります。 エクセルシートの例えばセルB1からB4000まで文字(1-12,1-564等)が入力されていて その文字を検索値としてVLOOKUPしたいのですが、文字のなかに不要なものが入っている ため検索できません。関数のTRIMを使えばできるのですが、VBAを使ってやってみたいと 思っています。TRIMを使ってB1からB4000をA1からA4000に入力したいです。 どなたかよろしくお願いします。
質問日時: 2023/04/07 12:33 質問者: とのつろ カテゴリ: Visual Basic(VBA)
ベストアンサー
15
0
-
SNSで電話番号がいる
電話番号必須なのはセキュリティで二重認証とか謳っていますが、本当はちがいますよね。 電話番号をつけることで、何を防止できるのですか? 身元特定することでもできるのでしょうか?
質問日時: 2022/11/08 11:17 質問者: blue-rose_003_1 カテゴリ: その他(セキュリティ)
解決済
15
0
-
エクセル 2つの列にある値の完全一致を抜き出すVBA
お世話になります。 エクセルでデータを貼り付けしたときに、 A列とB列の完全一致データを行ごと(AからMまで)別のシートに摘出したいと思っております。 また一致したデータは削除せずに全て摘出したいと考えております。 膨大なデータ数ですので処理に時間はかかると思っておりますが、 VBAで自動で処理できる方法をご教示頂けないでしょうか。 ご指導を宜しくお願いいたします。
質問日時: 2022/12/15 03:22 質問者: gousann72 カテゴリ: Visual Basic(VBA)
ベストアンサー
15
1
-
VirtualBox のイメージファイルへのマウントについて教えてください
こんにちは。暑いし湿度が高い!みなさん体調に気をつけてください。 先日はWindws 95 のゲームがやりたくて何度も質問しVirtualBox という のをインストールしましてWindows XP SP3 の仮想システムというのを 作成しましたら、無事、プレイすることができました。 みなさん、ありがとうございました。 今回の質問ですが、私は仮想システムというのは初めてで、まだ使いこなせ てません 涙 ゲームはインストールではなくCD からプレイします。 それはできるようになったのですが、手数がかかっちゃうのでイメージファイ ルというのを作って、そこからプレイしたいと思っています。 それで ・イメージファイルの作成はできました ・VirtualBox のイメージファイルのアクセスを設定しても起動方法がわかりません ・もう1つイメージファイルを仮想DVD ドライブにしてできるかなと思ったので すが、それもできませんでした。 VirtualBox に詳しい方、教えていただけませんか? よろしくお願いします。
質問日時: 2023/07/08 14:11 質問者: Love_neko_2023 カテゴリ: Windows 10
ベストアンサー
14
1
-
8年程前に購入したパソコンですが電源を入れてから起動し全ての機能が使えるようになるまで10分はかかり
8年程前に購入したパソコンですが電源を入れてから起動し全ての機能が使えるようになるまで10分はかかります。 改善を図るためネットで調べて動作の妨げになりそうなものを削除したり色々やってるんですが一向に変化が無く困っています。 もはや重いとかいう次元の話しじゃなく‥いくらパソコンが古いって言ったってこれは極めて異常ですよね‥!? まぁ買い替えるつもりではいますが。。
質問日時: 2022/12/17 19:47 質問者: shin5570 カテゴリ: Windows 10
解決済
14
0
あなたの趣味に関するQ&Aを探してみてください!
おすすめ情報