ソフトウェア

Numbersでチェックボックスの関数について質問です。 添付画像の表チェック0にチェックを入れ、チェック入れた場所だけをチェック1の表に表示させてます。 lF(チェック0::A2)，(チェック0::B2)，““) ここまでは出来たのですが、表チェック2のようにチェックを外してるところを空白にせずに表示させる方法はありませんか？ 行数が多いので表示させたい分だけチェックを入れ表示出来たら便利なのですが… よろしくお願いします。

Wordを立ち上げたときにあなたへのおすすめを非表示にする方法を教えてください。 詳細設定から過去の履歴を0にして非表示にする方法はできたのですが、［あなたへのおすすめ］が非表示にできません。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ パソコンが重たく612MBも使用している、Bs　Rcorder　１２のアンインストールをしたいのですが、下記URLに入り旧１２のレジストリキーを削除するため、指示通りダウンロードして進めても途中でストップしてしまいできないのですが、同じバージョンをインストールしてからアンインストールする方法はないのでしょうか？ https://ftp.sourcenext.co.jp/pub/products/temporary/support/bs/delreg_bsrecorder9-18.zip ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

いつもお世話になってます。マクロ初心者です。 下記マクロもコピペで作りました。先日あまりに時間がかかるので相談したら 回答いただいたのですが、別の問題が出てきました。 フォルダ内のすべてのファイルに実施するLoopが、 フォント変更などのマクロを実施して保存されたファイルに、もう一度マクロがかかる仕組みになっています。 故にマクロをスタートさせると、ファイル名がどんどん長いファイルが増えていって 作業が永遠に終わりません。 既述の通り、マクロのつぎはぎで作成したので どこがどう問題なのか突き詰めることができません。 分かる方がいればご教示いただけますと幸いです。 ****** Sub NEM_Macroループ() ' ' フォント変更、記号変換、テキストボックス、全シート ' Dim myFile As String Dim myPath As String Dim myBook As Workbook Dim mySheet As Worksheet Dim myRange As Range Application.ScreenUpdating = False 'インジケーター表示 Dim j As Long Info.Show vbModeless 'フォントを変更するファイルが保存されているフォルダのパスを指定します。 myPath = "C:\Users\XXXXX\Desktop\NEM_macro" '指定したフォルダ内の全てのExcelファイルに対してループを実行します。 myFile = Dir(myPath & "\*.xlsx") Do While myFile <> "" 'インジケーター For j = 1 To 30000 With Info .ProgressBar1.Value = j .パーセント.Caption = Int(j / 30000 * 100) & "%" .Repaint End With Next j '各ファイルを開きます。 Set myBook = Workbooks.Open(myPath & "\" & myFile) '全てのワークシートに対してループを実行します。 For Each mySheet In myBook.Sheets 'シート内の全てのセルに対してループを実行します。 Set myRange = mySheet.UsedRange Cells.Font.Name = "ＭＳ Ｐゴシック" Cells.Font.Name = "Arial" Selection.Replace What:="、", Replacement:="，" Selection.Replace What:="※", Replacement:="*" Selection.Replace What:="①", Replacement:="(1)" Selection.Replace What:="②", Replacement:="(2)" Selection.Replace What:="③", Replacement:="(3)" Selection.Replace What:="④", Replacement:="(4)" Selection.Replace What:="⑤", Replacement:="(5)" Selection.Replace What:="⑥", Replacement:="(6)" Selection.Replace What:="⑦", Replacement:="(7)" Selection.Replace What:="⑧", Replacement:="(8)" Selection.Replace What:="⑨", Replacement:="(9)" Selection.Replace What:="⑩", Replacement:="(10)" '半角全角修正 Dim セル As Range Dim 変換文字 As String Dim 半角 As String Dim i As Long Range("A1").CurrentRegion.Select For Each セル In Selection 変換文字 = StrConv(セル.Text, vbWide) For i = 1 To Len(変換文字) 半角 = StrConv(Mid(変換文字, i, 1), vbNarrow) If Asc(半角) >= 32 And Asc(半角) <= 126 Then _ 変換文字 = WorksheetFunction.Replace(変換文字, i, 1, 半角) Next i セル = 変換文字 Next 'テキストボックスグループ化解除 Dim mySPg As Shape For Each mySPg In ActiveSheet.Shapes If mySPg.Type = msoGroup Then mySPg.Ungroup End If Next mySPg Dim mySP As Shape 'すべての図形テキストボックスをループ For Each mySP In ActiveSheet.Shapes 'テキストボックスの場合 If mySP.Type = msoTextBox Then 'フォント変更 mySP.TextFrame2.TextRange.Font.NameFarEast = "ＭＳ Ｐゴシック" mySP.TextFrame2.TextRange.Font.NameFarEast = "Arial" End If Next mySP Dim 年月 Dim ThisName, NewName Dim MojiCoA As Integer, MojiCoB As Integer 'Format,Year,Month関数を利用します 年月 = Year(Date) & "_" & Month(Date) '拡張子なしのファイル名を取得します MojiCoA = InStrRev(ActiveWorkbook.Name, ".") ThisName = Left(ActiveWorkbook.Name, MojiCoA - 1) 'ファイル名を変数へ設定します NewName = ActiveWorkbook.Path & "\" & ThisName & 年月 & ".xlsx" '作成したWorkbookを名前を付けて、移動先フォルダに保存します ActiveWorkbook.SaveAs Filename:=NewName '次のファイルに移動します。 Next myFile = Dir() Loop Info.Hide MsgBox "処理が終了しました。" Unload Info End Sub

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（いきなりPDF to Data Ver.5/宛名職人 Ver.29など） ＝＝＝ご記入ください＝＝＝ エンディングノート２ ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ Windows10 ▼お困りごとの詳細、エラーなど（例：データ読み込みができない・保存ができない・シリアルの確認方法など） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ 保存したはずの記録がない 買ったばかりで、昨日初めてデータを入れて今日オープンしたら白紙しか出てこない。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品：筆まめVer.33 ▼パソコンのOS：Windows11 ▼お困りごとの詳細 　デザイン作成で、Ａ３横置を選択しても、Ａ３の左半分(Ａ４)だけが 　作成・印刷可能で、右半分(Ａ４)は印刷不可領域になってしまいます。 　Ａ３横置全体を作成するには、どうしたらよいでしょうか。 　 　環境設定で、印刷データ２分割データに対応するにしても変わりません。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆まめVer.33など） ＝＝＝ご記入ください＝＝＝ 筆王Ver.27 ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ Windows11 ▼お困りごとの詳細、エラーなど（例：インストール出来ない、製品登録ができないなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ 一度、２年くらい前に、筆王Ver.27 を購入しました。 新しいPCを購入し、インストールが途中で止まりました そのため、筆王Ver.27 自動バージョンアップサービス を購入しました。 ”製品をご利用になるパソコンを変更する場合は、 お客様の筆王ページからプログラムをダウンロードしてください。” ご指示通りの操作を行いましたが、前回と同様に途中で止まりました。 対応を教えてください。 よろしくお願いいたします。 PS 古いPCには、住所党のデーターが入っているので、アンインストールしにくいです。 また、御社の製品（例えば　iMazing Paintgraphic4など）について古いPCからアンインストールしなければいけないのでしょうか？ ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（いきなりPDF to Data Ver.5/宛名職人 Ver.29など） ＝＝＝ご記入ください＝＝＝ ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ ▼お困りごとの詳細、エラーなど（例：データ読み込みができない・保存ができない・シリアルの確認方法など） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ ZoomでMeeting Owlを使用しているが、カメラが起動しない。 音声、画面共有は出来るがこちらの画像が先方で見えない。 先週の金曜日までは問題なく使用できた。 どなたか、解決方法を教えてください。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

添付画像のような構成で 　C列数値（D列の文字数の総計）を上から順番に合計して300を超えるとB列にその合計を書き出すようにしました。 　（コード SumIfOver300) わかりやすいようにA列にそれぞれを塗分けしています。 1) 現在は、手動ですがこれをVBAで自動で処理したい。 （添付図は、３色ですが境目が解ればいいので2色でもOKです。） 2) 塗分け後に塗分けされたD列の部分を一つのテキスト群としてそれぞれ別ファイル（テキストファイル）に区切って出力したい。 添付図で言うといかのように出力 　D2：D7　 001_text.txt D8:D12 002_text.txt D13:D15 003_text.txt Sub SumIfOver300() Dim lastRow As Long Dim sum As Long Dim i As Long lastRow = Cells(Rows.Count, "C").End(xlUp).Row sum = 0 For i = 1 To lastRow sum = sum + Cells(i, "C").Value If sum > 300 Then Cells(i, "B").Value = sum sum = 0 End If Next i End Sub

fire fox(a)のブックマークでページを作成し、同じブラウザの検索窓(b)でnitionで起動すると(a)で作成したページがありません。これはページのアドレスが違うために起こる現象でしょうか。 違うブラウザにブックマークしてあるnotionを開くと(b)と同じ事が起きます。使用しているnotionはブラウザ版です。 上の事を起きないようにするための方法とかありました教えてもらえますか。 アプリ版を入れていましたが上の事があるために削除しました。使いこなしている方、詳しい方ご教示よろしくお願いいします。 かわりづらい文章でも申し訳ないありません、指摘していただける助かります。

Win11/Steam/DOOM EXTERNALのスレイヤーチュートリアルで、クリア出来ない箇所が有るので質問します。 当方X-BOXコンソールを使用しています。 添付した画像の箇所を登れません。 グレイの部分下にある^^^^がある部分を登れません。 お分かりの方、ご教授をお願いします。

googleビジネスで写真を投稿したいのですが サイズ: 10KB～5MB 推奨解像度: 縦 720ピクセル、横 720ピクセル 最小解像度: 縦 250ピクセル、横 250ピクセル と書いてあります。 撮った写真をパソコンのペイントで、縦 720ピクセル、横 720ピクセルにすると、サイズが 100KBぐらいになりますし、ペイントで、サイズを10KBにしようとすると縦 80ピクセル、横80ピクセルにするようになります。 解像度: 縦 720ピクセル、横 720ピクセルで10KBにするにはどうしたらいいのでしょうか？ 圧縮するなどしてみたのですが画像がぼけてしまったり・・ 知識不足ですみませんがよろしくお願いします。

L505-0009-06 ロックが解除されないので、どうしたらいいのか？ googleのアカウント確認画面から前に進まないのでどのようにしたらいいのか？ ※OKWAVEより補足：「Lenovo：ソフトウェア」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 バージョン（例：筆王Ver.27/筆王ZEROなど） ＝＝＝ご記入ください＝＝＝ 筆王26 ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ Windows10 ▼お困りごとの詳細、エラーなど（例：印刷方法がわからない・サイズ変更の仕方が分からない・保存の仕方を教えてほしいなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記　＝＝＝ 今迄のデータが全て消えてしまった。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

Last Passをパソコンで使っていたのですが、一度モバイルでログインしてしまったためか、パソコンでのログインができなくなりました。 Switch to computerみたいなボタンを意味も分からず押していたのですが、 多分これがまずかったようです。 パソコンのみで使えればいいのですが、パソコンのみに設定し直す方法ないでしょうか？

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆まめVer.33など） 筆まめVer.33 ▼パソコンのOS（例：Windows10など） Windows10 ▼お困りごとの詳細、エラーなど（例：印刷方法がわからない・サイズ変更の仕方が分からない・保存の仕方を教えてほしいなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ 既製のフォーマットを使わず１シートの中に複数の手作りの名刺を作りたいのですが方法はありますか。市販名刺のシートに付属するアプリではできますが フォントなど細かい選択ができません。「筆まめ」では同一デザインをシート 内の指定の箇所にコピーはできますが複数デザインを同一シート内に作る方法が見つかりません。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

EXCEL　全画面モードにしたとき通常Ａになり[…]をクリックするとリボンが表示され編集が出来るのですが、VBAで全画面にするとBのようになり編集ができません。ＡになるようなＶＢＡコマンドをご教示いただきたい。 　BになるＶＢＡ　コマンド ActiveWindow.WindowState = xlMaximized Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

歌ってみた動画を制作するとして、原曲のキーを変えて歌うには、どんなソフトを使ってどんな加工をすればよいか教えてください。 例：https://youtube.com/watch?v=jNVrwAg0xtM&feature=share8

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・バージョン（例：筆王Ver.27/筆王ZEROなど） 不明 ▼パソコンのOS（例：Windows10など） Windows10 ▼お困りごとの詳細、エラーなど（例：印刷方法がわからない・サイズ変更の仕方が分からない・保存の仕方を教えてほしいなど） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ 現在使用している「筆王」の動作が非常に遅くなっている。 約８年前購入でバージョンが古いために起こっている現象なのか… その他の原因が在るのかが知りたいです。 また最新バージョンに更新すれば動作が早くなるのか？も併せてお伺いしたいです。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。

下記の内容で質問があります。回答をいただけると助かります。よろしくお願いします！ ▼ご利用の製品 ・購入製品（いきなりPDF to Data Ver.5/宛名職人 Ver.29など） ＝＝＝ご記入ください＝＝＝ いきなりPDFver9 ▼パソコンのOS（例：Windows10など） ＝＝＝ご記入ください＝＝＝ Windows11 ▼お困りごとの詳細、エラーなど（例：データ読み込みができない・保存ができない・シリアルの確認方法など） ≪※表示されている画像やスクリーンショットを添付すると伝わりやすくなります！≫ ＝＝＝ご記入ください＝＝＝ いきなりPDFを立ち上げた際に、100％表示となってしまっています。 立ち上げ時に全体表時となるように設定したいです。 シンプルヴューワーも同様に設定したいです。 よろしくお願いいたします。 ※OKWAVEより補足：「ソースネクスト株式会社の製品・サービス」についての質問です。