HohoPapa の回答履歴

作成したマクロは、CSVのカンマで区切られたデーターを、 １）作成する原本をコピーしたシートに値で貼付け（手動） ２）データータブの区切り位置指定ウィザードで指定(マクロボタン作成/標準モジュール）。 ３）関数と書式設定で文字A1＝B3（VBA作成のカレンダーで月日を選択）+C3（関数で指定の文字） ※VBA作成のカレンダーは以下の井上様作成のカレンダーを設置しました。 https://www.asahi-net.or.jp/~ef2o-inue/download/sub09_020_025.html ４）A1の文字をシート名に、また同じシート名が既にある場合、シート名（数字追加）をVBAで作成。 ５）B3の月日変更に伴ってA1自動変更時、シート名も再度変更。その際、同じシート名が既にある場合、シート名（数字追加）をVBAで作成。 現在、１～３だけであればエラー無。４～５を作成しましたが、 「ActiveSheet.Name = ActiveSheet.Range("$A$1")」でエラーがでます。 まずはこのエラーの解決方法を教えてほしいです。 最終的には１でCSVからコピーして（手動）、A13をクリックしたイベント？VBAで、値で貼付けから先総て自動でできるとうれしいです。難しいでしょうか？ Excel2013　Windows10です。 Excelファイルをウェブ上に上げました。下記アドレスになります。 https://drive.google.com/file/d/1u-SPH2FdThyVPbu7_ddbKl0mts2_D4pb/view?usp=sharing sheet４とsheet５のシートモジュールは同じです。sheet6のみ違うやり方を記載しています。 どちらがよいのかわからず、途中になっています。 どうぞ宜しくお願い致します。

①セルC5:C36の範囲のどこかを選択していると、セルB3:E3(結合されたセル)とセルB4のセルをオレンジ色に塗りつぶし、範囲以外の場所になると塗りつぶしを解除するVBAなどはどの様にすれば宜しいでしょうか？ ②セルE5:E36の範囲のどこかを選択していると、セルB3:E3(結合されたセル)とセルE4のセルをオレンジ色に塗りつぶす方法を追加する場合はどうすれば宜しいでしょうか？選択範囲外になると塗りつぶしは解除させます。 ③セルG5:G36の範囲のどこかを選択していると、セルG3:I3(結合されたセル)とセルG4のセルをオレンジ色に塗りつぶす方法を追加する場合はどうすれば宜しいでしょうか？選択範囲外になると塗りつぶしは解除させます。

①シート1のセルC5に文字を手動で毎回入力すると、シート2のセルB5から下の列に順番に文字を自動で転送するVBAなどはどの様にすれば宜しいでしょうか？ ②シート1のセルC6に文字を手動で毎回入力すると、シート2のセルC5から下の列に順番に文字を自動で転送するVBAはどの様にすれば宜しいでしょうか？ ③同じ様な法則でシート1のセルC7に文字を手動で毎回入力すると、シート2のセルD5から下の列に順番に文字を自動で転送、シート1のセルC8に文字を手動で毎回入力すると、シート2のセルD5から下の列に順番に文字を自動で転送とする場合はどの様にすれば宜しいでしょうか？ ④シート1のセルC5、C6、C7、C8に文字を手動で入力すると同じシート1の左隣のセルB5、B6、B7、B8に入力した回数を自動で表記する方法はありますか？

エクセルで表の欄外の、表の横の列を取得する、 というBVAはあるのでしょうか。 具体的に列のAとかBを指定するコード？は あると思うのですが、表の欄外の横の列に合計を表示させたい、 となった場合を考えています。 たとえば表がA１～C５という場合もあると思いますし 表がA２～D６という場合もあると思うので、臨機応変に 欄外に合計額を表示させたいと思っていました。 そうでなければ、都度、表の場所などが変わるごとに VBAを書き換える必要が出てくると思うのです・・・。

お世話になります。 タイトルのとおり、エクセルで区域毎の履歴を作りたいのですが、 頭も技術も足りず、作業が進まない状況です。 皆さんの知恵をお貸しいただければと思い、投稿しました。 よろしくお願いいたします。 内容は、 添付ファイルのとおりの2つのエクセルデータがあります。 どちらもデータ行の数は１０００以上あります。 実施したい作業は、左側の管理台帳のうち、大区域、枝番、小区域毎に作業履歴台帳の中から、「作業年、作業種、作業面積」を管理台帳の小区域面積セルの右横から左へ向けて、作業年の古いものから、「作業年、作業種、作業面積」を横並びにしたいというものです。 データが多いので、手作業では厳しい状況です。 良い方法があれば、ご教示ください。 よろしくお願いいたします。

お世話になります。 タイトルのとおり、エクセルで区域毎の履歴を作りたいのですが、 頭も技術も足りず、作業が進まない状況です。 皆さんの知恵をお貸しいただければと思い、投稿しました。 よろしくお願いいたします。 内容は、 添付ファイルのとおりの2つのエクセルデータがあります。 どちらもデータ行の数は１０００以上あります。 実施したい作業は、左側の管理台帳のうち、大区域、枝番、小区域毎に作業履歴台帳の中から、「作業年、作業種、作業面積」を管理台帳の小区域面積セルの右横から左へ向けて、作業年の古いものから、「作業年、作業種、作業面積」を横並びにしたいというものです。 データが多いので、手作業では厳しい状況です。 良い方法があれば、ご教示ください。 よろしくお願いいたします。

お世話になります。 タイトルのとおり、エクセルで区域毎の履歴を作りたいのですが、 頭も技術も足りず、作業が進まない状況です。 皆さんの知恵をお貸しいただければと思い、投稿しました。 よろしくお願いいたします。 内容は、 添付ファイルのとおりの2つのエクセルデータがあります。 どちらもデータ行の数は１０００以上あります。 実施したい作業は、左側の管理台帳のうち、大区域、枝番、小区域毎に作業履歴台帳の中から、「作業年、作業種、作業面積」を管理台帳の小区域面積セルの右横から左へ向けて、作業年の古いものから、「作業年、作業種、作業面積」を横並びにしたいというものです。 データが多いので、手作業では厳しい状況です。 良い方法があれば、ご教示ください。 よろしくお願いいたします。

お世話になります。 タイトルのとおり、エクセルで区域毎の履歴を作りたいのですが、 頭も技術も足りず、作業が進まない状況です。 皆さんの知恵をお貸しいただければと思い、投稿しました。 よろしくお願いいたします。 内容は、 添付ファイルのとおりの2つのエクセルデータがあります。 どちらもデータ行の数は１０００以上あります。 実施したい作業は、左側の管理台帳のうち、大区域、枝番、小区域毎に作業履歴台帳の中から、「作業年、作業種、作業面積」を管理台帳の小区域面積セルの右横から左へ向けて、作業年の古いものから、「作業年、作業種、作業面積」を横並びにしたいというものです。 データが多いので、手作業では厳しい状況です。 良い方法があれば、ご教示ください。 よろしくお願いいたします。

①シート1のセルC5に文字を手動で毎回入力すると、シート2のセルB5から下の列に順番に文字を自動で転送するVBAなどはどの様にすれば宜しいでしょうか？ ②シート1のセルC6に文字を手動で毎回入力すると、シート2のセルC5から下の列に順番に文字を自動で転送するVBAはどの様にすれば宜しいでしょうか？ ③同じ様な法則でシート1のセルC7に文字を手動で毎回入力すると、シート2のセルD5から下の列に順番に文字を自動で転送、シート1のセルC8に文字を手動で毎回入力すると、シート2のセルD5から下の列に順番に文字を自動で転送とする場合はどの様にすれば宜しいでしょうか？ ④シート1のセルC5、C6、C7、C8に文字を手動で入力すると同じシート1の左隣のセルB5、B6、B7、B8に入力した回数を自動で表記する方法はありますか？

Wordの図形塗りつぶしで、図形スタイルグループのスタイルの一覧を開くと通常は左のような一覧が出るのですが一部の機種で右のような一覧が開き正常な塗りつぶしが出来ません。この時、別の塗りつぶし方法を用いても図形により正常に塗潰せないものがあります。 今回経験したのは、Word 2019でしたが、ネットで調べるとそれ以前のWordでも発生しているようです。そのサイトでは、有効な回答がついていませんでした。どなたか解決法ご存知の方よろしくお願い致します。 https://answers.microsoft.com/ja-jp/msoffice/forum/all/word%E3%81%A7%E5%9B%B3%E5%BD%A2%E3%81%AE%E5%A1%97/171388bc-0dba-4cea-be8c-80afedc2b3a9

お世話になっております。 どうしてもできない部分があり、質問させてください。 現在、Visual Basicからデータベースに登録できるようなツールを作っています。 StringBuilder.Appendメソッドを通して 条件に合致した社員にはデータを新しくINSERTするようなものです。 ここは問題なくできているのですが、このINSERTで追加されたすべての行をDataGridViewに表示して確認できればと試行錯誤しております。 単純にSELECT文を後に実行すれば、できるのですが、 今回のINSERTではなく、別途INSERTしたデータも抽出されてしまいます。 いま、追加したデータのみ表示ができる方法が有れば教えてください。 Visual Studio2017 Oracleデータベースを使用しています。

お世話になっております。 どうしてもできない部分があり、質問させてください。 現在、Visual Basicからデータベースに登録できるようなツールを作っています。 StringBuilder.Appendメソッドを通して 条件に合致した社員にはデータを新しくINSERTするようなものです。 ここは問題なくできているのですが、このINSERTで追加されたすべての行をDataGridViewに表示して確認できればと試行錯誤しております。 単純にSELECT文を後に実行すれば、できるのですが、 今回のINSERTではなく、別途INSERTしたデータも抽出されてしまいます。 いま、追加したデータのみ表示ができる方法が有れば教えてください。 Visual Studio2017 Oracleデータベースを使用しています。

初心者の質問で、失礼をいたします。 ウィンドウズ10 64bitでのネットワークについてお尋ねします。 小さな職場で、4台のパソコンでデータのやり取りをしたくて、ネットの情報を参考にして自分でネットワークを作りました。 ４台のパソコンにはそれぞれ、システム用のCドライブと、データ保存用のDドライブを搭載しています。 それら、４台のデータ用Dドライブを、ネットワーク上で共有するようにしています。 ４台のパソコンは、ハブとLANケーブルでつながっており、インターネットには接続していません。 ウィンドウズやソフトの更新の必要な時ににのみ、LANケーブルを外して、それぞれのパソコンで無線LANで更新作業をしています。 今現在、４台はつながって、データのやり取りもできているのですが、毎回、４台のパソコンを立ち上げるごとに、以下のような儀式が必要なのです。 ①「ネットワーク」をクリック→ネットワーク探索が無効です。ネットワークコンピューターとデバイスは表示されません。「ネットワークと共有センター」でネットワーク探索を有効にしてください。 ②OKをクリックすると→ネットワーク探索とファイル共有が無効になっています。ネットワークコンピューターとデバイスは表示されません。変更するにはクリックしてください。 ③クリックすると→ネットワーク探索とファイル共有の有効化 これを選んでクリックすると ④すべてのパブリックネットワークにネットワークの探索とファイル共有を有効にしますか？ ⑤いいえ、接続しているネットワークをプライベートネットワークにします。ネットワーク探索とファイル共有は、家庭や職場のネットワークのようなプライベートネットワークで有効になります。 ⑥これを選ぶとやっとこさ「ネットワーク」に４台のパソコンのアイコンが出てきて、データのやり取りができるようになります。 この儀式をふめば支障なく仕事ができるのですが、毎回毎回煩わしいので、できれば改善したく思っています。 ウィンドウズ10の設定で、ネットワークプロファイルは「プライベート」に ネットワークと共有センターの共有の詳細設定では、 「プライベート」ではネットワーク探索とファイルとプリンターの共有を有効に、 「ゲストまたはパブリック」ではネットワーク探索とファイルとプリンターの共有を無効に、 「すべてのネットワーク」ではパブリックホルダーの共有を有効に、パスワード保護共有は無効に、設定しています。 どうすればよいのでしょうか？どうぞよろしくお願いいたします。

LAN内にサーバーがあり、ADに全てのPCは参加しています。共有機能を使ってファイルの共有をしていますが、特定のPCからのアクセスをブロックしたいと考えていますが、どこで設定していいのかわかりません。どのような方法があるかお教えください。お願いします。

エクセルの関数で5項目の文字（仮に【あ～お】）が合ったらカウントする関数、但しプルダウンで絞るとその分カウントに比例すること。 で下記関数を作成しましたが、 =SUMPRODUCT((SUBTOTAL(103,INDIRECT("AA"&ROW(AA10:AA10000))))*(AA10:AA10000="あ")) AA列10行～10000行にあがあればカウントする。動作確認済み この関数を右列にコピーしていきたいんですが、自動でABに変更にならない箇所があります。対策教えていただきたく。

エクセルの関数で5項目の文字（仮に【あ～お】）が合ったらカウントする関数、但しプルダウンで絞るとその分カウントに比例すること。 で下記関数を作成しましたが、 =SUMPRODUCT((SUBTOTAL(103,INDIRECT("AA"&ROW(AA10:AA10000))))*(AA10:AA10000="あ")) AA列10行～10000行にあがあればカウントする。動作確認済み この関数を右列にコピーしていきたいんですが、自動でABに変更にならない箇所があります。対策教えていただきたく。

VBAで文字の大きさが現在6ポイントだけになっているセル内をすべて7ポイントに上げてください。※所々にあるテキストBOX内にも6Pの文字がありますが、それらは無視してください。また6Pと7Pなど別々の大きさが混在しているセル内も無視してください(例えば6Pと8Pが入力されている場合に6Pが7Pになると同時にセル内からはみ出してしまいますが6Pのみのセル内ではかろうじてはみ出しません)

自己株式を消却した場合、資産が減少する。 これは正しいでしょうか？　私は正しいと思うのですが。 総資産に出ている自己株式（取得の総額、取得費用含む）と額と、それと同額の純資産の剰余金（その他資本剰余金など？）の額を、マイナスすると考えているのですが。 仕訳だと その他資本剰余金100/ 自己資本100 など。 これはある問題で出ているのです。別の選択肢で ・自己株式の取得は純資産の減少、自己株式の売却は純資産の増加として処理する というのがあり、答えだと、これが、正しいとされています。こちらのほうが間違っているように思うのですが。

自己株式を消却した場合、資産が減少する。 これは正しいでしょうか？　私は正しいと思うのですが。 総資産に出ている自己株式（取得の総額、取得費用含む）と額と、それと同額の純資産の剰余金（その他資本剰余金など？）の額を、マイナスすると考えているのですが。 仕訳だと その他資本剰余金100/ 自己資本100 など。 これはある問題で出ているのです。別の選択肢で ・自己株式の取得は純資産の減少、自己株式の売却は純資産の増加として処理する というのがあり、答えだと、これが、正しいとされています。こちらのほうが間違っているように思うのですが。

エクセルの関数で5項目の文字（仮に【あ～お】）が合ったらカウントする関数、但しプルダウンで絞るとその分カウントに比例すること。 で下記関数を作成しましたが、 =SUMPRODUCT((SUBTOTAL(103,INDIRECT("AA"&ROW(AA10:AA10000))))*(AA10:AA10000="あ")) AA列10行～10000行にあがあればカウントする。動作確認済み この関数を右列にコピーしていきたいんですが、自動でABに変更にならない箇所があります。対策教えていただきたく。