回答数
気になる
-
Windows10のサポートが10月に終了するそうなので中古パソコンへの買い替えを検討しております。
Windows10のサポートが10月に終了するそうなので中古パソコンへの買い替えを検討しております。買い替えるパソコンはWindows11への無償アップグレード対象のCPUを搭載したWindows 10の中古パソコンを考えております。第8世代のCPUが搭載されたものを考えているのですが、これだと無償アップグレード対象ギリギリのCPUだと思うのですが大丈夫でしょうか? 今後Windows11のアップデート次第で第8世代のCPUは切られるみたいなことは考えられますか?Windows11のサポート終了まで使えるのでしょうか?
質問日時: 2024/07/03 22:40 質問者: _robin_ カテゴリ: Windows 10
ベストアンサー
7
0
-
Excel 2019 [オプション]の[リボンのユーザー設定]中の“背景の削除”は何処に?
[Excelのオプション]の一つに[リボンのユーザー設定]がありますが、添付図の赤矢印が指す位置 に“背景の削除”と“描画”が用意されています。 添付図の左上の横長図は私が使用中の Excel の[メインメニュー]の一部(左側)を示しています。 その右の縦長図は、[ファイル]⇒[その他…]⇒[オプション]⇒[]⇒[リボンのユーザー設定] を実行したときのメニューの一部(上部)です。“ホーム”の上部に選択されていない次の2項目があります。 □背景の削除 □描画 右端の縦長図のように“描画”にチェックを入れて下端にある[OK]をクリックして[オプション]メニューを終了すると、[メインメニュー]の[ホーム]の左に[描画]が追加されていることが分かります。 でも、“背景の削除”にチェックを入れても何の変化もありません。これはどういうことなのでしょうか?例によって Microsoft社の手落ち/不行き届き/忽略の一つでしょうか? ご存じの方、教えてください。m(_._)m
質問日時: 2024/07/03 22:33 質問者: mike_g カテゴリ: Excel(エクセル)
ベストアンサー
4
0
-
Windows10のサポートが10月に終了するそうですが、それまでにWindows11のパソコンに買
Windows10のサポートが10月に終了するそうですが、それまでにWindows11のパソコンに買い替えなければならないのでしょうか?サポート終了後もWindows 10のパソコンを使い続けるのは個人利用だとそこまで気にする必要はないですか?Windows7や8を使ってる方いましたら何か不具合とかありますか?
質問日時: 2024/07/03 22:29 質問者: _robin_ カテゴリ: Windows 10
ベストアンサー
9
0
-
エクセルのVBAコードについて教えてください。
下記のコードは先日教えて頂いたコードを参考に作成しました。 セルD47に不特定の文字が表示されるとマクロ住所コピーが実行されます。 しかし、セルD47があるシートを他のブックのシートからコピペした場合は マクロが上手く実行されません。 セルD47に直接書き込むとマクロが事項されます。 この問題を解決できる方法を教えてください。 よろしくお願いいたします。 If Not Intersect(Range("$D$47"), Target) Is Nothing And Not Target.Value <> "" Then Call 住所コピー 以上となります。 よろしくお願いいたします。
質問日時: 2024/07/03 17:47 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
Microsoft365搭載Windows11PCへのOffice2021インストール
家で使用しているWindows11のPCでの質問です。 Microsoft365がインストールされていますが、私が勤務している会社とMicrosoftとの契約により、家で使用する個人PCでもMicrosoft365を使用して可より、会社で使用しているマイクロソフトアカウントを使用して個人PCへインストールをしています。 ある理由から、Office2021をインストールする必要が発生し、Microsoft Office 2021 Professional Plus オフィス2021を購入してインストールしようとしています。 Microsoft365をアンインストールすることなく、Microsoft Office 2021 Professional Plus オフィス2021をインストールすると、インストールができた様に思えてもMicrosoft365ベースのエクセル等しかなく、プロダクトキーの入力に至りません。 また、Microsoft365をアンインストールしてMicrosoft Office 2021 Professional Plus オフィス2021をインストールすると、Microsoft365ベースのエクセル等が復活して、プロダクトキーの入力に至りません。 やりたいこととしては、Office2021のインストールであり、Microsoft365はあってもなくてもよいのですが、どの様にすればインストールができるかを教えてください。
質問日時: 2024/07/03 15:40 質問者: tiz カテゴリ: その他(Microsoft Office)
ベストアンサー
5
0
-
WindowsとMacではパスが違うのでしょうか?もし違うならファイルの管理をパスに頼っている場合は
WindowsとMacではパスが違うのでしょうか?もし違うならファイルの管理をパスに頼っている場合はパスを変換する必要があるのでしょうか?
質問日時: 2024/07/03 14:35 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
4
0
-
Googleスプレッドシートでの範囲の保護
Googleスプレッドシートで簡単に範囲の保護の設定・解除ができる方法を探しています。 やりたいこと: 複数回実施するイベントの申し込み(名前を入力するリスト)を作成し、スプレッドシートを共有してメンバーに各自、参加したい日程に名前を入力してもらいます。 シートは1枚で、たくさんの日程があります。 イベント数日前になったら締切としますが、その後キャンセルが出たら再度申し込みをオープンします。 現状、締切になったらリスト上部に締切済みと入力し、マニュアル作業で当該日のリストの範囲を保護し、キャンセルが出て募集する際には、再度マニュアル作業で保護を外しています。 これを、例えば日程ごとに募集中・締切済みのプルダウンリストかチェックボックスを作成し、締切済みを選択したら指定の範囲が保護されるようにしたいと考えています。 条件付き書式で背景色を変えるくらいはできたのですが、範囲(セル)の保護はできないでしょうか。
ベストアンサー
1
0
-
変な電話がありました +1 8445406969112 検索しても出てきません 海外からですか?どこ
変な電話がありました +1 8445406969112 検索しても出てきません 海外からですか?どこから国際番号なんでしょう?184も混じってるような、、 実は電話かかってきて出れました 出ると最初何言ってるか聞き取れませんでしたが、機械に喋らせてるようです。しばらくしたら中国語?かなんかで何行っとるかわからんこと言い出しましたので、切りました。 これは課金されるんですか?基本こちらから発信しない限り課金ないはずですが、電話かかってきて着信で課金するやつってあるんですか? この正体はなんですか?
ベストアンサー
4
0
-
ファイルをディレクトリ分配のプログラムについて質問です。
現在仕事でPerlのプログラムを使用しています。(これは今はいらっしゃらない上司に作ってもらいました) 使用しているのはLinuxでOSは「Fedora」です。 それで以下のようなツリー構成のデータをディレクトリに分けたいんです。 ↓ ディレクトリ『A』の中に「***A_1.bz2」「***A_2.bz2」「***A_3.bz2」「***A_4.bz2」 ディレクトリ『B』の中に「***B_1.bz2」「***B_2.bz2」「***B_3.bz2」「***B_4.bz2」 こういったディレクトリが『A』~『L』まであるとします。 これを拡張子前の「1」~「4」の数字別にディレクトリを作って下のように分配していきたいんです。 ●『1』のディレクトリ内ー「***A_1.bz2」・「***B_1.bz2」~「***L_1.bz2」 『2』のディレクトリ内ー「***A_2.bz2」・「***B_2.bz2」~「***L_2.bz2」 『3』のディレクトリ内ー「***A_3.bz2」・「***B_3.bz2」~「***L_3.bz2」 『4』のディレクトリ内ー「***A_4.bz2」・「***B_4.bz2」~「***L_4.bz2」 こういったことをやるために以下のようなプログラムを使用しています。 -------------------------------------------------------------------------- $path0="/home/***********/****/**"; # output directory system( "mkdir $path0/1" ); system( "mkdir $path0/2" ); system( "mkdir $path0/3" ); system( "mkdir $path0/4" ); opendir( DIR, $path0); @dlist = readdir( DIR ); closedir( DIR ); foreach $dname ( @dlist ){ if( $dname=~/B/ ){ $path1=$path0.'/'.$dname; # print( "$path1\n" ); chdir( $path1 ); # unzip bz system( "bzip2 -d *bz2" ); opendir( DIR, $path1); @flist = readdir( DIR ); closedir( DIR ); foreach $fname ( @flist ){ print( "$fname\n" ); if ( $fname=~/*1/){ $exec="mv $fname $path0/1/"; } elsif( $fname=~/*2/){ $exec="mv $fname $path0/2/"; } elsif( $fname=~/*3/){ $exec="mv $fname $path0/3/"; } elsif( $fname=~/*4/){ $exec="mv $fname $path0/4/"; } system( "$exec" ); } } } -------------------------------------------------------------------------------- ※ ( $fname=~/*1/) の辺りはちょっと適当です。 このプログラムですと、分配まではできるのですが元々あり空になってしまった『A』~『L』のディレクトリが残ってしまいます。 この空のディレクトリを削除するにはどういったプログラムを追加したらいいでしょうか? すみませんが、どなたかよろしくお願いします。
ベストアンサー
3
0
-
平仮名変換
「の」を入力したく「n o」と打つと「nお」となります。 同様に「さ」は「sあ」となります。 どこをどう変えたらよいでしょうか。
質問日時: 2024/07/03 12:02 質問者: aerio カテゴリ: Windows Vista・XP
ベストアンサー
2
0
-
ウェブサイトのアクセスログについてお聞きしたいです。 アクセスログで接続の機器の機種名やOSなどを見
ウェブサイトのアクセスログについてお聞きしたいです。 アクセスログで接続の機器の機種名やOSなどを見ることはできると思います。 パソコンの機種名、OSやバージョン、パソコン本体に設定した名前、Windowsのユーザー名(起動時ログイン画面で選んだアカウント)など、どこまで調べることができるのでしょうか。 ユーザー名を本名で設定していたので、何気にアクセスしていたウェブサイトや、ショッピング系の詐欺サイトに間違えてアクセスしてしまったときに記録されてたのではと心配になりました。 調べてもユーザー名についての情報は出てこなかったので、ご回答よろしくお願いいたします。
質問日時: 2024/07/03 11:50 質問者: esla カテゴリ: その他(プログラミング・Web制作)
解決済
3
0
-
エクセルのマクロについて教えてください。
下記のマクロは先日教えて頂いたマクロで、 マクロを実行すると、ワイルドカードで指定したブックを開く事が出来ます。 ファイル名 ①22069167-1_00-確認申請受付【花子】(提出用).xlsx の場合は上手くマクロが実行されてブックを開く事が出来ますが。 ②210610132-1_東二条7丁目住宅新築工事【太郎】(提出用) .xlsx の場合は"コピー元ブックが見つかりません"を表示されてブックを開く事が出来ません。 下記のコードを変更し、①の場合も②の場合も両方ブックを開く事が出来る方法があれば教えてください。 よろしくお願いいたします。 現状のマクロ Sub 提出シートを開く() 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 ws As Worksheet If Workbooks.Count > 1 Then Set Wb2 = Workbooks(2) '別ブック On Error Resume Next Set ws = Wb2.Worksheets("提出シート") If Err.Number <> 0 Then MsgBox "コピー元ブックの提出シートが見つかりません" On Error GoTo 0 Wb2.Close False End End If 'セルの値を取得する ws.Range("B1:H47").Copy Else MsgBox "コピー元ブックが見つかりません": End End If End Sub 以上となります。 よろしくお願いいたします。
質問日時: 2024/07/03 09:22 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
7
0
-
MAC フォルダ内の写真整理で簡単な操作方法について教えてください
Mac air bookを使用していて、フォルダ内にある沢山の写真を整理しています。 長い間Windowsユーザーだったので少し戸惑いながら使用していますが、Macもとても快適ですね。 質問1 フォルダの中の写真を先頭から末尾まで一気に選択したいです。 Windowsなら、先頭をクリックして、確かシフトを押しながら末尾をクリックで一気に 範囲選択ができましたが、Macはどのようにしたらいいでしょうか。 質問2 フォルダの中の写真を別の場所に移動させたり削除したら、なくなった写真のスペースが空いたままです。 これを、自動的に詰めるように設定できますか。 よろしくお願いします。
質問日時: 2024/07/03 08:33 質問者: linachan01 カテゴリ: Mac OS
ベストアンサー
2
0
-
エクセルで 自動的に◯や数字を表示させることできます? 例えばなんですが 日付 山田 1 ◯ みたい
エクセルで 自動的に◯や数字を表示させることできます? 例えばなんですが 日付 山田 1 ◯ みたいな名簿で、1と◯を毎月打ち込んでるのですがシートを作った段階で 打ち込まれた状態にしたいのですができますか? 出来れば曜日ごとにこの1と◯のパターンが違うので、曜日にたいして反応するようにできたら助かります 条件付き書式とかでできますか?
質問日時: 2024/07/03 08:21 質問者: 山田辰雄 カテゴリ: Excel(エクセル)
解決済
8
1
-
フォーマットはファイルシステムを一から書き直すのでしょうか?
フォーマットはファイルシステムを一から書き直すのでしょうか?
質問日時: 2024/07/03 08:06 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
3
0
-
パソコンのキーボードの掃除にエアダスターを使っている人がいますがエアダスターは空気が強く出るのでそん
パソコンのキーボードの掃除にエアダスターを使っている人がいますがエアダスターは空気が強く出るのでそんな事をしたらキーボードの中に入ったゴミが奥に行っちゃいますよね?つまり逆効果ですよね?
質問日時: 2024/07/03 08:04 質問者: 東園寺 カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
6
0
-
utf8bomとutf8mb4の違いがいまいち分かりません。
プログラムが文字化けすると、開発環境でエンコードをutf8bomに変えたりしてみるのですが、データベース関係で、utf8mb4などが言葉として出てきて、混乱してます。データベースの環境がutf8mb4で、中のデータのエンコードがsjisやutf8やutf8bomで両者は別物みたいな感じですか? sqlでquery(set names utf8)はあっても、query(set names utf8bom)はなさそうです。
ベストアンサー
1
0
-
ExcelVBA修正のお願い
・Excel(M365)で、添付ファイルが実行できるようなVBAを作成しましたが、おかしな点を修正していただけませんでしょうか。 <具体的に実施したいこと> ・①Sheet1のE列と、Sheet2のC列をマッチングし、Sheet1のJ列の値を、Sheet2のM列へ転記する。その際、Sheet1にデータ重複している場合(例:CCC,DDD)、そのデータの最下行の値を転記する(例:CCC→400、DDD→700)②この重複データについては、アラームのため、該当するSheet2のB~C列を赤くセル反転させる。 ・上記マッチングしない場合は、Sheet2へは特に転記はしない(例:EEE) ・Sheet2については、11行目に項目があり、12行目以降へデータ転記したい。 ↓以下の通り作成しましたが、「Sheet2については、11行目に項目があり、12行目以降へデータ転記したい。」「該当するSheet2のB~C列を赤くセル反転させる。」という部分をうまく反映できていないように感じていますが、どのように修正すればよいかを教えてください。。 Sub sample() Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1") Dim ws2 As Worksheet: Set ws2 = Worksheets("Sheet2") Dim i As Long, j As Long, r1 As Long, r2 As Long Dim k As Long, cnt As Long Dim ary ws1.Select With ws1 r1 = .Cells(Rows.Count, "E").End(xlUp).Row ReDim ary(1 To r1, 1 To 2) For i = 1 To r1 ary(i, 1) = .Cells(i, "E").Value ary(i, 2) = .Cells(i, "J").Value Next i End With With ws2 r2 = .Cells(Rows.Count, "C").End(xlUp).Row For i = 1 To r2 cnt = 0 For j = 1 To UBound(ary, 1) If .Cells(i, "C") = ary(j, 1) Then k = j cnt = cnt + 1 End If Next j If k > 0 Then .Cells(i, "M").Value = ary(k, 2) '値段転記 If cnt > 1 Then .Cells(i, "M").Interior.ColorIndex = 3 '重複値赤 k = 0 End If Next i End With End Sub
質問日時: 2024/07/02 23:06 質問者: mame1216 カテゴリ: Visual Basic(VBA)
解決済
1
0
-
再起動が必要です
ワード、エクセルを開くと、「再起動が必要です プライバシー設定に対する変更を適用するには、officeを再起動してください」との表示が出ます。 この表示が出ないようにするにはどうしたらよろしいでしょうか?
解決済
2
0
-
windows11のWordが開かず、起動しようとしてもすぐに落ちてしまいます
OSがwindows11のパソコンで、もともと入っているWordを立ち上げようとアイコンをクリックすると 「画像を正しい位置に配置します」という文字がでて開けません。 今まで一度も開いたことないのですが、ワードを使って仕事をしなければならなくなったので 解決方法を見つけたいです よろしくお願いします
解決済
2
0
-
ファイル名の長短について
いまさらながらの質問になります、主にネットで画像ファイルを検索し、良い景色等があればダウンロードし、ディスクトップの壁紙として使用しています、そこでですが主にこの画像ファイル、最近ファイル名が長いような気がしていますが(ものによっては30文字くらいのネームがついているファイルがある)このファイル名の長さは極端ではないと思いますがHDDの容量的にどのくらいの差があるのでしょうか何回か自分でも調べようとしたのですがうまくいきません、例えば1ファイル名が30文字ついているとします、このファイルが100ファイルあった場合と、ファイル名が8文字くらいの時とどのくらいの容量が違うのでしょうか?
質問日時: 2024/07/02 21:23 質問者: azemichiMO カテゴリ: その他(ソフトウェア)
ベストアンサー
3
0
-
現在、PC2台でMicrosoft 365 Personalを使ってます。
OneDriveは1台でしか使わないで2台目はOneDriveへのアクセスさえできなくするのはどういう方法が一番安全でしょうか?(WordとExcelのみ使うということです。)
質問日時: 2024/07/02 18:20 質問者: ピクセル7 カテゴリ: その他(Microsoft Office)
ベストアンサー
1
0
-
ゴミ箱から間違えて・・・
「ゴミ箱から完全に削除」を実行しようとしたら 操作ミスで復元してしまいました。 数秒ほどで気づいてキャンセルしましたがそれでも少し復元されたようで それが原因でゲームのフォルダ構築っていうんですか? おかしくなってしまいました。 ゴミ箱から何が復元されたのか分からず困っております。 検索・特定して再度削除する方法、もしくは 元々のごみ箱に遭った状態に逆復元する方法などありませんか? よろしくお願いします<(_ _)>
質問日時: 2024/07/02 18:07 質問者: hisaboy カテゴリ: その他(コンピューター・テクノロジー)
ベストアンサー
3
0
-
c言語
非定常熱伝導の計算のプログラムを作ったんですけど、エラーは出ないのに、結果が出ません。 何が問題なのでしょうか? include <stdlib.h> // パラメータ設定 #define Nx 50 // x方向のグリッド数 #define Ny 50 // y方向のグリッド数 #define Nz 50 // z方向のグリッド数 #define Lx 1.0 // x方向の領域の長さ #define Ly 1.0 // y方向の領域の長さ #define Lz 1.0 // z方向の領域の長さ #define dx (Lx / (Nx - 1)) // x方向のグリッド間隔 #define dy (Ly / (Ny - 1)) // y方向のグリッド間隔 #define dz (Lz / (Nz - 1)) // z方向のグリッド間隔 // 時間のパラメータ #define dt 0.01 // 時間ステップ #define totalTime 1.0 // 総シミュレーション時間 #define numTimeSteps ((int)(totalTime / dt)) // 時間ステップ数 // 熱拡散率の定義 #define alpha 0.1 // 初期条件: T(x, y, z, t=0) double initialTemperature(int i, int j, int k) { // 例として中心に熱スポットを置く初期条件 double x = i * dx - Lx / 2.0; double y = j * dy - Ly / 2.0; double z = k * dz - Lz / 2.0; double distanceSquared = x*x + y*y + z*z; return distanceSquared < 0.1 ? 1.0 : 0.0; } int main() { // 温度の配列を初期化 double T[Nx][Ny][Nz]; // 初期条件を設定 for (int i = 0; i < Nx; ++i) { for (int j = 0; j < Ny; ++j) { for (int k = 0; k < Nz; ++k) { T[i][j][k] = initialTemperature(i, j, k); } } } // 明示的なオイラー法を使用して時間積分する for (int t = 0; t < numTimeSteps; ++t) { // 新しい温度を格納するための一時的な配列を作成 double T_new[Nx][Ny][Nz]; // 明示的なスキームを使用して新しい温度を計算する for (int i = 1; i < Nx - 1; ++i) { for (int j = 1; j < Ny - 1; ++j) { for (int k = 1; k < Nz - 1; ++k) { T_new[i][j][k] = T[i][j][k] + alpha * dt * ( (T[i+1][j][k] - 2*T[i][j][k] + T[i-1][j][k]) / (dx*dx) + (T[i][j+1][k] - 2*T[i][j][k] + T[i][j-1][k]) / (dy*dy) + (T[i][j][k+1] - 2*T[i][j][k] + T[i][j][k-1]) / (dz*dz) ); } } } // 次の時間ステップのために T を T_new に更新する for (int i = 0; i < Nx; ++i) { for (int j = 0; j < Ny; ++j) { for (int k = 0; k < Nz; ++k) { T[i][j][k] = T_new[i][j][k]; } } } } // 最終的な温度分布を出力する(例として、中間の平面を出力) int midIndex = Nx / 2; // 中間平面のインデックス for (int j = 0; j < Ny; ++j) { for (int k = 0; k < Nz; ++k) { printf("%.2f ", T[midIndex][j][k]); } printf("\n"); } return 0; }
質問日時: 2024/07/02 15:01 質問者: はらたつのり。。 カテゴリ: C言語・C++・C#
解決済
5
0
-
ExcelやWordを開くと、写真に書いてあることが出てきます。 ネットで調べて、再起動の仕方を試し
ExcelやWordを開くと、写真に書いてあることが出てきます。 ネットで調べて、再起動の仕方を試してみても解決しません。 どうしたらいいのですか?
質問日時: 2024/07/02 14:07 質問者: なお豚骨ラーメン カテゴリ: Excel(エクセル)
解決済
3
0
-
パソコンでiTunesで購入した曲をMP3に変換しようしたのですが、➖42017のエラーが出て変換出
パソコンでiTunesで購入した曲をMP3に変換しようしたのですが、➖42017のエラーが出て変換出来ません。認証されてないとの事ですがiTunesのアプリから「アカウント」の中の「認証」から「このコンピューター」を認証を選んだのですが、やはり➖42017のエラーが出てMP3に変換出来ません。何故でしょうか?
解決済
1
0
-
VBAコードについて教えてください。
下記のコードは以前教えて頂いたコードです If Not Intersect(Range("ER3"), Target) Is Nothing And Target.Value = "■" Then Call Accessシート表示 指定セル値に指定文字「■」が表示されるとマクロが実行できます。 このコードを 指定セル値に「■」では無く、不特定の文字が表示されたときにマクロを実行出来るように変更する方法を教えてください。 又、マクロは「Call Accessシート表示」ですが、複数のマクロ(例えば:テスト1・テスト2)を設定したいのですが、 よろしくお願いいたします。
質問日時: 2024/07/02 12:34 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
私の家にはのパソコンがありウインドウズ10で使っています。家族はウインドウズ10のままにしておいてく
私の家にはのパソコンがありウインドウズ10で使っています。家族はウインドウズ10のままにしておいてくれと言います。 今度メルカリでノートパソコンを買ってWi-Fiで使おうと思う物に目をつけていますが、それはウインドウズ11です。 ウインドウズ10のパソコンからウインドウズ11にWi-Fiを繋いで使ったら何か差し障る事がありますか?
質問日時: 2024/07/02 12:24 質問者: ミミイカ8号 カテゴリ: Windows 10
解決済
4
0
-
KADOKAWAって今、システム障害受けてるんですよね?電撃のホームページ開けないですよね?
KADOKAWAって今、システム障害受けてるんですよね?電撃のホームページ開けないですよね?
質問日時: 2024/07/02 11:19 質問者: まいこさん_2975 カテゴリ: システム
解決済
3
0
-
mac版無料パワーポイントでエラー
無料のmac版Microsoft Officeでパワーポイントを使おうとしても 「新しいプレゼンテーションの作成中にエラーが発生しました。 後でもう一度お試しください。この問題が解決しない場合は<OneDrive から新しいプレゼンテーションを作成できます。> 関連付け ID: 7a46b677-ba60-467f-b40d-a5c0f618a3ae」 というメッセージが出て<>内はリンクになってるようですが反応しません。 どうすれば使えますか?
質問日時: 2024/07/02 11:12 質問者: ハネ子 カテゴリ: PowerPoint(パワーポイント)
解決済
1
0
-
[vb.net] 起動したFrom2を閉じ、呼出元Form1の指定コントロールにカーソルをセット
こんにちは。 いつもお世話になっております。 タイトルの通りのことで悩んでいます。 自作のPGで下記の処理を行っています。 ①Form1でForm2のインスタンスを作成する。 ②Form1をHideで非表示にする。 ③①のインスタンスをShowDialogで起動。 ④Form2を閉じて帰ってきた値がCancelならForm1をCloseする。→ここで終了 ⑤Form2を閉じて帰ってきた値がOKなら、Form1をshowで再表示する。 ⑥From1のtextbox1にカーソルをセットする。 ①~⑤まではうまくいくのですが、⑥のカーソルのセットがうまくいきません。 「Me.show」の後に「Me.Activate()」などでForm1をアクティブにしてから フォーカスをセットしてもダメでした。 フォーカスのセットは、「ActiveControl=textbox1」でも「textbox1.forcus」でもダメです。 呼出元のForm1の指定コントロールにカーソルをセットする方法は 何かないでしょうか。 調べようにも、あまり当該内容がヒットせず見つかりません。 ご存知の方がいましたら、宜しくお願い致します。
質問日時: 2024/07/02 10:57 質問者: nanigashi7 カテゴリ: Visual Basic(VBA)
ベストアンサー
3
0
-
ワードでルビを振ると「単語がくっついて、単語の下が開いてしまう」のはどう改善すればいいでしょうか。
ルビをつけると行間がおかしくなる、という問題のQ&Aはよく見るのですが、画像のような状態になってしまうのをどう改善(設定)すればいいのかが分かりません。ご教示いただけると幸いです。よろしくお願いいたします。
ベストアンサー
1
1
-
「総降水量が100mm以上になる週末」のSQLを教えてほしいのですが、
「総降水量が100mm以上になる週末」のSQLを教えてほしいのですが、 下の例題を改変する感じじゃないかなと思うのですが どうでしょうか?どう変えますか?↓ 画像が正しいやつ テーブル名は降水除雪 年月日、降水量(mm) これに似てるのか?↓ 前日よりも最高気温が 10 度以上上昇した日を求める。 SELECT T1.‘年月日 ‘, T1.‘最高気温 (度)‘, (T1.‘最高気温 (度)‘ - T2.‘最高気温 (度)‘) AS ‘前日差 ‘ FROM ‘気温 ‘ AS T1, ‘気温 ‘ AS T2 WHERE SUBDATE(T1.‘年月日 ‘, 1) = T2.‘年月日 ‘ AND T1.‘最高気温 (度)‘ - T2.‘最高気温 (度)‘ >= 10 土曜日、土曜日の降水量、日曜日、日曜日の降水量を表したい 2019が先頭 合計6でお願いします
質問日時: 2024/07/02 10:05 質問者: WhereMonthName カテゴリ: MySQL
ベストアンサー
2
0
-
.NETと.NET Frameworkの違い
IT初心者です。.NETと.NET Frameworkの違いについて教えてください。
質問日時: 2024/07/02 09:55 質問者: オバケイ カテゴリ: その他(コンピューター・テクノロジー)
解決済
3
0
-
エクセルのマクロについて教えてください。
下記のマクロは先日教えて頂いたマクロです。 実行すると 作業ブック(コピー先)にコピー元のブックの指定範囲をコピペできます。 Dim Wb1 As Workbook Dim Wb2 As Workbook Sub 提出シートコピー削除() Call 提出シートを開く Call 提出シートコピー範囲 Call 貼り付け Call 電子提出削除 End Sub このマクロに「Call 住所コピー」を追加すると 画像のエラーが表示されて、作業ブックの別シート(シート名:青紙表)のVBAコードの 「With Worksheets("審査")」が黄色く表示されてマクロを連続して実行できませんでした。 この問題の解決方法を教えてください。 設定マクロ Dim Wb1 As Workbook Dim Wb2 As Workbook Sub 提出シートコピー削除() Call 提出シートを開く Call 住所コピー Call 提出シートコピー範囲 Call 貼り付け Call 電子提出削除 End Sub 住所コピーマクロ Sub 住所コピー() On Error Resume Next Dim Wb1, Wb2 Set Wb1 = Workbooks(1) 'このブック Set Wb2 = Workbooks(2) '別ブック 'セルの値を取得する Workbooks(1).Worksheets("受付").Range("L2") = Workbooks(2).Worksheets("FDデータ").Range("J49") End Sub シート「青紙表」のVBAコード Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$R$18" And IsNumeric(Cells(18, "R").Value) And Len(Cells(18, "R")) = 8 Then Application.EnableEvents = False Worksheets("青紙表").Range("$AX$3").Value = Worksheets("受付").Range("$J$2").Value Application.EnableEvents = True ActiveWorkbook.Save End If Sheets("青紙表").Select Range("$C$20").Select Sheets("Access").Visible = [AN46] = "●" On Error Resume Next If Range("$J$53").Value = "■" Then Call 構造 End If If Target.Address = "$C$23" Then Call 電子完了 End If If Range("$AB$35") <> "" Xor Range("AH35") <> "" Then Call 決済図形 End If If Range("$CO$7").Value = "有" Then Call 浄化槽表示 End If If Target.Address = "$O$28" Then Call 再修正表示 End If If Target.Address = "$O$28" Then Call 修正表示 End If If Target.Address = "$C$20" Then Call 審査担当コメント非表示 End If If Range("$EX$4").Value = "■" Then Call 消防通知図表示 End If If Range("$ER$3").Value = "■" Then Call 行政メール図表示 End If If Target.Address <> "$C$20" And Target.Address <> "$F$20" Then Exit Sub If Target.Address = "$C$20" And Range("$F$20").Value <> "" Then Exit Sub If Target.Address = "$F$20" And Range("$C$20").Value <> "" Then Exit Sub If Target.Value <> "" Then If True Then Call 新行政報告ファイルコピー Call 審査資料 Call 行政条例総合 Call いろはシステム Call シート300を非表示 On Error Resume Next Worksheets("受付").Visible = False Worksheets("管理表").Visible = False Worksheets("Access").Visible = False Worksheets("地方照会").Visible = False Worksheets("札幌道路").Visible = False Worksheets("札幌宅地").Visible = False Worksheets("札幌開発").Visible = False On Error Resume Next Application.DisplayAlerts = False Sheets("F審査").Delete Sheets("F設計INDX").Delete Application.DisplayAlerts = True End If Else On Error Resume Next Worksheets("受付").Visible = True Worksheets("管理表").Visible = True End If On Error Resume Next If Range("CI20").Value = "■" Then Call 日付 End If If Range("EY3").Value = "■" Then Call 消防通知図表示 End If End Sub 以上となります。よろしくお願いいたします。
質問日時: 2024/07/02 08:51 質問者: エクセル小僧 カテゴリ: Visual Basic(VBA)
ベストアンサー
1
0
-
エクセルやワードを無料で使えるんですか?
エクセルやワードを無料で使えるんですか?
質問日時: 2024/07/02 08:41 質問者: あっきー126 カテゴリ: その他(Microsoft Office)
ベストアンサー
4
0
-
マッチングアプリやるとしたら何がオススメですか? もちろんサクラ無しで 自分の顔写メ載せてます?
マッチングアプリやるとしたら何がオススメですか? もちろんサクラ無しで 自分の顔写メ載せてます?
解決済
1
0
-
【マクロ】2回実行したら、エラーにならずに、既に実行済みメッセージを出したい
以下のコードをご覧ください。 ファイル名を変更します a3セル(ファイルフルパスが記載)のファイル名をa7(ファイルの名前のみ)に変更します コードは、動きます。ただ、2回実行すると fso.GetFile(filePath).Name = newFileName デバックとなります 質問したいことは、2回実行した時に 「既にファイル名は変更済み」とメッセージを出したいです ご存じの方、宜しくお願いします 【コード】 Sub ファイル名変更() Dim fso As Object Dim filePath As String Dim newFileName As String '変更前のファイルのパスを指定 filePath = Range("a3") '変更後のファイル名 newFileName = Range("a7") & ".pdf" Set fso = CreateObject("Scripting.FileSystemObject") 'ファイル名を変更 fso.GetFile(filePath).Name = newFileName '後片付け Set fso = Nothing End Sub
質問日時: 2024/07/01 23:17 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
解決済
2
0
-
特定の文字列を含む、住所を抽出する
以下の関数は、A列に並んでいる、住所の中で、世田谷区を含む住所地 該当と 表示する関数です ここで、質問ですが、世田谷区 もしくは 港区 を含む場合は どのような関数となりますか? 今は2つですが、この先、10個20個と市町村が増えていく予定です まずは、複数の市町村に該当する、住所を抜き出す方法を教えて下さい 宜しくお願いします =IF(COUNTIF(A2, "*世田谷区*"), "該当", "")
質問日時: 2024/07/01 21:45 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
解決済
3
0
-
初心者 vscodeの拡張機能のEmmetってどれですか?
まず、質問本文で、「正しく入力されていない項目もしくは、不適切な内容を検知しました」 となりました。原因は矢印が入っているフレーズです。変だと思いませんか? vscodeの拡張機能でemmetを使いたいのですが、 拡張機能に Mithril Emmet や Emmet Liveや Emmet keybindingsや Emmet commands and keybindings などがあります。 どれをインストールすればいいのでしょうか? keybindingsって本体機能のショートカットキーだと思うので、 本体がないと動作しないのではと考えています。 その認識で合ってますか? Emmet LiveはEmmet Mithril の軽量版で速さ重視のものですか? →ざっくりでいいので、よろしくお願いいたします。
質問日時: 2024/07/01 21:30 質問者: denpataro カテゴリ: その他(プログラミング・Web制作)
ベストアンサー
2
0
-
個人のパソコンです。 先程まで使用していた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
-
USBメモリー上の MP4 ファイルの並べ替え
DVDプレヤーの USB端子に USBメモリーを差して MP4の画像ファイルを楽しんでいます。 ただ ファイル数が 多くなって気付いたのですが ファイルの並びは どうやら 書き込んだ順番のようです。 ファイルの ソート機能が無いようです。 ファイルの タイムスタンプを 同じにしてみましたが やはり 書き込んだ順のようです。 もう一度 別の場所で ソートしてから 一つづつコピーすれば出来そうですが ファイルの数も200を超えて 出来そうも有りません。 メモリー上の ファイルの書き込み順の並びを ソートする方法は 有りませんか。
質問日時: 2024/07/01 10:59 質問者: newasahi カテゴリ: 画像編集・動画編集・音楽編集
ベストアンサー
7
1
-
エクセルのマクロについて教えてください。
下記のマクロを実行すると画像のエラーメッセージが表示されマクロ「貼り付け」のコードの内「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
-
アプリで、アトカラは、審査厳しいですか? 教えて下さい!
アプリで、アトカラは、審査厳しいですか? 教えて下さい!
質問日時: 2024/07/01 07:25 質問者: ren20110311 カテゴリ: アプリ
ベストアンサー
1
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
【コンピューター・テクノロジー】 に関する回答募集中の質問
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
プログラミングを学べる!?進化している子どものおもちゃについて専門家に聞いた!
プログラミングを学べるレゴブロックがあることはご存知だろうか。レゴに限らず最近のおもちゃには、プログラミングの要素がどんどん取り入れられているようだ。「教えて!goo」にも、「プログラミングを学べる子供...
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Officeを開くたびの「再起動メッセ...
-
パソコンに詳しい方教えて下さい。 ...
-
PDF 余白を無くして用紙いっぱいに...
-
パワポで曲がった両矢印の簡単な描...
-
X(旧ツイッター)からバスワードの...
-
再質問です。マクロの修正箇所を教...
-
「オプション機能」が無くなった
-
Androidスマホ半角数字の打ち方につ...
-
Access レポート印刷するときに1ペ...
-
2ch、5chを閲覧したり書き込んでも...
-
VBAコードのインデント表示
-
iPhoneメールに受信拒否したメール...
-
Windows11のデスクトップアイコンの...
-
win11のアップデートサービスについて
-
無料使用期間が終了しました。の表...
-
プログラムの実行時に'<'でリダイレ...
-
企業などで使うCADソフトは買えば数...
-
パソコンを起動したら画面が青いの...
-
文系のSE志望です。プログラミング...
-
onedrive にexcelファイルをアップ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
X(旧ツイッター)からバスワードの...
-
「オプション機能」が無くなった
-
パソコンに詳しい方教えて下さい。 ...
-
パワポで曲がった両矢印の簡単な描...
-
Yahoo!メールなのですが、1日に数百...
-
onenote内でこんな感じで黄緑になり...
-
【スプレドシート】IMPORTRANGE関数...
-
Access レポート印刷するときに1ペ...
-
CSVファイルで誤って上書き保存して...
-
Windows11のデスクトップアイコンの...
-
パソコンへの「Dropboxへよ...
-
「.movpkg」「.m3u8」ファイルを「....
-
Androidスマホ半角数字の打ち方につ...
-
PDF 余白を無くして用紙いっぱいに...
-
Windows Update の件、
-
iPhoneメールに受信拒否したメール...
-
AirTagについて質問です。 先程、iP...
-
パソコンでダウンロードしたmp4をmp...
-
2ch、5chを閲覧したり書き込んでも...
-
AndroidのスマホでPCみたいにフォル...
おすすめ情報