HohoPapa の回答履歴

エクセル2019です。 ワークシートを保護し、下記のコードで保護を解除するとｘはTRUEが返ります。 保護されていなかった場合はｘはNullが返ります。 Sub aaaa() Dim x x = ActiveSheet.Unprotect Debug.Print x End Sub 次にワークブックを保護し、同様に下記のコードで保護を解除しようとするとコンパイルエラーになってしまいます。同じことをしているはずなのにこれはどうしてでしょか？ご教示ください。 Sub bbbb() Dim x x = ActiveWorkbook.Unprotect Debug.Print x End Sub

セルA1に「好きな色は紫です」 という文字が入っているとします。 セルB2に　文字列のうち6番目、すなわち「紫」だけのふりがなを 表示させる方法はあるでしょうか。

「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」と言うフォルダがあります。 このフォルダにはエクセルシートのセルT６に入っている計算式 「＝TEXT（L1,”YYYY年M月D日”）.xism」の名前で保存されます。 これをCommandButtonなどを押して「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ済み」と呼ばれるフォルダにコピーして、「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」に入っている元のファイルを自動で削除する方法はありますか？

「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」と言うフォルダがあります。 このフォルダにはエクセルシートのセルT６に入っている計算式 「＝TEXT（L1,”YYYY年M月D日”）.xism」の名前で保存されます。 これをCommandButtonなどを押して「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ済み」と呼ばれるフォルダにコピーして、「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」に入っている元のファイルを自動で削除する方法はありますか？

「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」と言うフォルダがあります。 このフォルダにはエクセルシートのセルT６に入っている計算式 「＝TEXT（L1,”YYYY年M月D日”）.xism」の名前で保存されます。 これをCommandButtonなどを押して「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ済み」と呼ばれるフォルダにコピーして、「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」に入っている元のファイルを自動で削除する方法はありますか？

「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」と言うフォルダがあります。 このフォルダにはエクセルシートのセルT６に入っている計算式 「＝TEXT（L1,”YYYY年M月D日”）.xism」の名前で保存されます。 これをCommandButtonなどを押して「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ済み」と呼ばれるフォルダにコピーして、「D：¥フォルダA：¥作業¥納入品受け入れ¥納入品受け入れ依頼中」に入っている元のファイルを自動で削除する方法はありますか？

vba初心者です、宜しければ教えて下さい。 ユーザーフォーム上に画像をドラッグドロップしたら、その画像、ファイル名、パス名がフォーム上に表示されるところまで作成しました。以下のサイトをそのままですが、参考にさせてもらいました。 (参考サイト：https://www.excel-pitin.net/single-post/2017/08/06/画像をドラッグ＆ドロップで表示させる) このImage1オブジェクトに上書きした画像を別シートの指定セルA1に貼り付ける方法を知りたいです。いました。 保存後に画像のパスが変わっても表示が崩れないようにしたいので、Picture.insertではなくShapes.AddPictureを使うというところまで、調べたのですが、そこから先で詰まってしまい、分かりません。(参考https://excel-ubara.com/excelvba5/EXCELVBA226.html ) 最終的には、ユーザーフォーム上のプレビュー画像に ・ボタン操作で、画像を拡大縮小する ・マウスでドラッグして位置を直接微調整する 機能も付けれればなと思っています。 宜しければご教授お願いします。

教えてください。 日報を作るため、外部ファイルを参照した数式を使ったファイルを作成しました。（日報フォルダの中に個人名ファイルと月間集計ファイルがあります。月間集計ファイルから個人名ファイルを参照しています。） １．月間集計ファイルを開くと「このブックには、安全でない可能性のある外部ソースが1つ以上含まれています。」とメッセージが表示されます。 リンクの編集から値の更新を選択し、ＯＫ表示がされても、次回は必ず不明になります。 起動時の確認で「メッセージを表示しないで、リンクの自動更新を行う」にすれば表辞されなくなりますが、気になります。 ２．職場で使用したいのですが、セキュリティーのためファイルを無害化するサイトを通してからパソコンに入れるのですが、外部リンクがある数式は削除されてしまいます。 そこで数式をいったん文字列（＝を’＝に）置換し、それをまた数式に戻すために’＝を＝に置換をかけたのですが、一致するデータが見つかりませんとなり置換することができません。 文字列を数式に置換するにはどうすればできるでしょうか。 以上ご存じの方がいらっしゃいましたら、お教えください。

株取引の表計算について、 ①　I列セルの「手数料」（赤色） ②　N列セルの「税」（青色） ③　O列セルの「手数料」（緑色） を自動計算する数式を教えてください。 条件１：４種類の取引（「買」「売」「信買」「信売」） 条件２：売買額ごとの手数料 参照したい手数料一覧は、Q1セルです。 例えばQ5セルは、「買」または「売」の売買額が5万円以上10万円以下の場合、手数料99円、という意味です。 ①　I列セルの「手数料」（赤色） （例） I3セルは、D3「買」で、かつ、H3「16万円」なので、115円と自動計算したい。 I2セルは、信用「信買」で、かつ、H4が23万円なので、198円と自動計算したい。 ②　N列セルの「税」（青色） 取引によって利益が発生した場合、つまり、P列「損益」がプラスであった場合、利益の20.315%が課税（N列「税」）され、利益から引かれます。 N列を自動計算する数式を教えてください。 なお、税が発生しなけば（つまりP列「損益」がマイナスであれば）「－」と表示したいです。 ③　O列セルの「手数料」（緑色） ①と同様、M列「売買額」に応じて自動計算したいが、②を加えた額を表示させたい。 以上、長々とすいません。 よろしくお願いいたします。

こちらで参考として シートレイアウトの投稿を行うのに下記のWEBのマリオさんのコードを利用させてもらっています。 http://www.excel.studio-kazu.jp/kw/20170116012224.html サンプルのEXCELシートをターゲットにして作成できたテキストファイルを 　テキストエディターに読み込ませると各セル列も揃ってキレイに表示されます。 しかし、これをOKWAVEに読み込ませると 　表示が崩れて各セル列の区切りを表す「|」が揃わずにガタガタになります。 （OKWAVEでガタガタ表示される部分をコピーして 　　再度テキストエディターに貼り付けすると又キレイな形式で表示されます。） テキストエディターによると 　各列の間は、必要数の半角のスペースの後に「|」がある構造で 　「|」が縦に直線になるようになるので各セル列がキレイに揃います。 以下は、サンプルのシート構造です。 　　 |[A] |[B] |[C] |[D] [1] |0:00​ Coworking | Coworking |0:00 | 0 [2] |8:15​ Dune | Dune |8:15 | 815 [3] |17:33​ Rainy Day | Rainy Day |17:33 |1734 [4] |24:59​ Chill Coffee | Chill Coffee |24:59 |2459 [5] |34:17​ Autumn | Autumn |34:17 |3417 [6] |40:06​ With the Waves| With the Waves|40:06 |4406 [7] |48:08​ Indian Trip | Indian Trip |48:08 |4808 [8] |53:09​ World of Sand | World of Sand |53:09 |5309 [9] |01:01:10​ The Taxi | The Taxi |01:01:10|6110 [10]|01:07:26​ Eden | Eden |01:07:26|6726 OKWAVEでキレイに表示するようにするには、どうすれば良いでしょうか　？ -------------------------- 分かりにくい説明ですいません。 お手を煩わす行為で恐縮ですがサンプルの部分をコピーして 　　テキストエディターに貼り付けて表示がどのように変化するか 　　確認していただけると理解が深まると思います。

工事写真を貼っていきたいのですが、 添付している□の中に クリック→画像の選択→フォルダ→画像 の順で入れていきたいのですが、マクロやVBAで良いやり方があれば教えていただきたいです。 当方、マクロもVBAもド素人なので、詳細に方法を教えていただければ幸いです。宜しくお願いします。

株取引の損益計算表をエクセルで作成しています。 関数が分からなくて困っています。 ① 損益計算 画像の赤色のセルです。 「エントリー」と「手仕舞い」から、いくら利益（または損失）が発生したのか計算して表示させたいです。 「エントリー」は、「買」「信買」「信売」の３種類があります。 「買」「信買」はロング（エントリーよりも手仕舞いが高いと利益、逆は損失）です。 「信売」はショート（エントリーよりも手仕舞いが安いと利益、逆は損失）です。 また、まだ手仕舞いしていない場合は、空欄か「－」と表示させたいです。 =IF(H4="*買",(V4-K4)*L4-N4-Y4,(K4-V4)*L4)-N4-Y4 と入れてみましたが、どうも上手くできません。 ② 手数料計算 画像の緑色のセルです。 SBI証券の手数料を自動で入力できるようにしたいです。 手数料は証券会社によって金額が決まっています。 以上、わかりにくくて申し訳ありません。 回答よろしくお願いいたします！

Excel VBA 初心者です。 ActiveXでシート上にTextBox1とSpinButton1を配置した場合で、 SpinButton1.Valueの値をコードで設定したとき、それまでの値と異なっていてもChangeイベントを発生させない方法はあるでしょうか。 例えば以下のようなコードです。 ---------------------- Private Sub 初期設定() 'ここでSpinButton1.Enabled = False を入れてもグレーアウトするのみでChangeイベントは発生する Dim N As Long N = 20 SpinButton1.Value = N '↑TextBox1.Valueが＜＞Nの時でも 'ここでChangeイベントに飛ばさない方法はあるでしょうか？ End Sub '↓通常はこの動作 Private Sub SpinButton1_Change() TextBox1.Value = SpinButton1.Value 'さらにこのあと数値増減による処理有り End Sub ---------------------- 「SpinButton1.Enabled = False」ではグレーアウトはしますがコードからの設定ではChangeイベントは発生しました。 宜しくお願い致します。

図のようにデータから個数を出し、その個数どうしから割合を出すやり方を教えてください。 実際には他にもいろいろなデータがあるので、ピポットテーブルにもたくさんの項目がある状態です。

こんにちは、いつもお世話になっております。 毎月作業していて何とかならないかと思い立った作業が2つあるのですが当方では全く歯が立たたない要求ですのでHELPです。 １．1つのBookの複数のシートの印刷 エクセルBookの複数のシート名の一覧表を「Sheet1」に目次のように作って、そのシート名を選択（☑や「印刷」等入力）すると指定したシートが印刷されるようにしたいのですが。 選択するシートは任意の複数枚。 シートを選択しての印刷は出来るのですが、できれば一覧表からの選択で印刷できるようにしたい。 ２．エクセルBookのSheet 1に、他の複数のBookのフルパスが入っている目次にチェックを入れると任意の複数枚のシートが印刷される。 複数のBookの複数シート名指定で印刷出来れば最高です １．２どちらか1つでもHELP頂けたらありがたいですので宜しくお願い致します。 尚、この作業は月報用、つまり月一回の作業なので当方にとってあまりハードルが高いようならすぐに諦めますのでご回答者様に失礼になるかもしれませんのでご了承下さい。 最近眼が著しくしょぼくなってきておりまして、出来るだけ頑張りますのでご容赦ください。

絵画の団体ですが授賞式に使うため数年前100万くらいのトロフィー購入しました。 会計処理上、今年、税金に詳しい人から決算の”雑費”の項目のところに1円計上してくださいと言われたのですがどういうことでしょうか？ 説明を聞いたのですがよくわかりません。素人にわかるようにざっくりでいいので教えてください。

こんにちは、いつもお世話になっております。 毎月作業していて何とかならないかと思い立った作業が2つあるのですが当方では全く歯が立たたない要求ですのでHELPです。 １．1つのBookの複数のシートの印刷 エクセルBookの複数のシート名の一覧表を「Sheet1」に目次のように作って、そのシート名を選択（☑や「印刷」等入力）すると指定したシートが印刷されるようにしたいのですが。 選択するシートは任意の複数枚。 シートを選択しての印刷は出来るのですが、できれば一覧表からの選択で印刷できるようにしたい。 ２．エクセルBookのSheet 1に、他の複数のBookのフルパスが入っている目次にチェックを入れると任意の複数枚のシートが印刷される。 複数のBookの複数シート名指定で印刷出来れば最高です １．２どちらか1つでもHELP頂けたらありがたいですので宜しくお願い致します。 尚、この作業は月報用、つまり月一回の作業なので当方にとってあまりハードルが高いようならすぐに諦めますのでご回答者様に失礼になるかもしれませんのでご了承下さい。 最近眼が著しくしょぼくなってきておりまして、出来るだけ頑張りますのでご容赦ください。

こんにちは、いつもお世話になっております。 毎月作業していて何とかならないかと思い立った作業が2つあるのですが当方では全く歯が立たたない要求ですのでHELPです。 １．1つのBookの複数のシートの印刷 エクセルBookの複数のシート名の一覧表を「Sheet1」に目次のように作って、そのシート名を選択（☑や「印刷」等入力）すると指定したシートが印刷されるようにしたいのですが。 選択するシートは任意の複数枚。 シートを選択しての印刷は出来るのですが、できれば一覧表からの選択で印刷できるようにしたい。 ２．エクセルBookのSheet 1に、他の複数のBookのフルパスが入っている目次にチェックを入れると任意の複数枚のシートが印刷される。 複数のBookの複数シート名指定で印刷出来れば最高です １．２どちらか1つでもHELP頂けたらありがたいですので宜しくお願い致します。 尚、この作業は月報用、つまり月一回の作業なので当方にとってあまりハードルが高いようならすぐに諦めますのでご回答者様に失礼になるかもしれませんのでご了承下さい。 最近眼が著しくしょぼくなってきておりまして、出来るだけ頑張りますのでご容赦ください。

こんにちは、いつもお世話になっております。 毎月作業していて何とかならないかと思い立った作業が2つあるのですが当方では全く歯が立たたない要求ですのでHELPです。 １．1つのBookの複数のシートの印刷 エクセルBookの複数のシート名の一覧表を「Sheet1」に目次のように作って、そのシート名を選択（☑や「印刷」等入力）すると指定したシートが印刷されるようにしたいのですが。 選択するシートは任意の複数枚。 シートを選択しての印刷は出来るのですが、できれば一覧表からの選択で印刷できるようにしたい。 ２．エクセルBookのSheet 1に、他の複数のBookのフルパスが入っている目次にチェックを入れると任意の複数枚のシートが印刷される。 複数のBookの複数シート名指定で印刷出来れば最高です １．２どちらか1つでもHELP頂けたらありがたいですので宜しくお願い致します。 尚、この作業は月報用、つまり月一回の作業なので当方にとってあまりハードルが高いようならすぐに諦めますのでご回答者様に失礼になるかもしれませんのでご了承下さい。 最近眼が著しくしょぼくなってきておりまして、出来るだけ頑張りますのでご容赦ください。

こんにちは、いつもお世話になっております。 毎月作業していて何とかならないかと思い立った作業が2つあるのですが当方では全く歯が立たたない要求ですのでHELPです。 １．1つのBookの複数のシートの印刷 エクセルBookの複数のシート名の一覧表を「Sheet1」に目次のように作って、そのシート名を選択（☑や「印刷」等入力）すると指定したシートが印刷されるようにしたいのですが。 選択するシートは任意の複数枚。 シートを選択しての印刷は出来るのですが、できれば一覧表からの選択で印刷できるようにしたい。 ２．エクセルBookのSheet 1に、他の複数のBookのフルパスが入っている目次にチェックを入れると任意の複数枚のシートが印刷される。 複数のBookの複数シート名指定で印刷出来れば最高です １．２どちらか1つでもHELP頂けたらありがたいですので宜しくお願い致します。 尚、この作業は月報用、つまり月一回の作業なので当方にとってあまりハードルが高いようならすぐに諦めますのでご回答者様に失礼になるかもしれませんのでご了承下さい。 最近眼が著しくしょぼくなってきておりまして、出来るだけ頑張りますのでご容赦ください。