chsugiyama

OFFICE 365 EXCELを起動時にシステムエラー が発生。対策を検討。 EXCELマクロの問題のようです。下記のメッセージ システムエラーです。&H80004005 エラーを特定できません。 状況 ファイルが開くが名前を変更することができない。 シートはCOPYができる。 VBAの内容は見れない。エラーが特定できません。の表示がでる。 　何のマクロがあったかが分からない。 マクロ有のファイルでもエラーの出ないものがある。 ネットで調べてみると、下記のようなものがありました。 問題の発生原因について マイクロソフト側のUpdateにて日本語を含むファイルの外部参照がある場合エラーを吐きだしていたようです。 外部参照と言っても、同一ファイル内の別タブを参照していてもNGなので厳密には『日本語が含まれていたら発生していた』と言う事ですね。※参照：マイクロソフト該当ページ 貼り付け元  <https://qol-kk.com/wp2/blog/2020/09/03/post-1905/>  2020 年 4 月の更新適用後、日本語を含む外部参照を行う VBA が読み込まれない問題  貼り付け元  <https://social.msdn.microsoft.com/Forums/ja-JP/6c3fa724-25c9-408e-bdde-245c9ea1ad8a/2020-24180-4?forum=officesupportteamja>  原因として、 おそらく、古いマクロがあるもの。 外部参照の名前が日本語のもの。 対策について、 マクロの復旧は出来ないようなので、ファイルの内容だけでも、マクロ無のファイルにすることが出来ないかと考えて調べたところ。 ブラウザで開いてマクロ無に保存　これは、できませんでした。 　一時、ブラウザでダウンロードすると、ダウンロードしたファイルが正常に開くことがありましたが、これも、全てのファイルではありませんでした。 結果 Google スプレットシートで保存後、EXCEL マクロ無で保存できることが分かりました。 シートをしようしているもの、書式設定なども正常に保存されるようです。 マクロは復元できませんでしたが、ファイルは復活することが出来ました。...

 EXCEL OFFICE365 ファイル 保存時のエラー　 下記のエラーが発生した場合の対処方法 「ｘｘｘの保存中にエラーが検出されました。いくつかの機能を削除または修復することにより、ファイルを保存できる場合があります。新しいファイルで修復を実行する場合には、「継続」をクリックしてください。ファイルの保存を中止するには、「キャンセル」をクリックしてください。 ローカル、社内サーバー、OneDrive の場合でも、発生する。 自動保存の場合には、編集中に発生する。 この場合、保存も出来ない場合がある。 エクスプローラなどから、ファイルを開いている場合に発生していた。 対処方法 EXCELを開いて、Excelの開くから、オプションの「開いて修復する」を実行することで正常にファイルが保存できるようになった。

 エクセルからAUTOCADで選択中の円の座標を取得 選択している円のデータ情報を知りたいという質問がありましたので、下記のように変更しました。 エクセルのVBAのみで、Autocad側のマクロの操作はありません。 SelectionSets.Add　選択セットを使用しています。VBAの最後に削除しています。 AUTOCADのコードでは、ThisDrawingですが、Excelから設定するには、AcadDocと書き直します。 ThisDrawing.SelectionSets.Add("Sample") AcadDoc.SelectionSets.Add("Sample")  AcadDocは下記のように定義 Set AcadDoc = AcadApp.ActiveDocument() 参照設定 AutoCAD 2021 Type Library にチェックしています。 AUTOCADで、選択した円のデータを抽出 １．エクセルで、マクロ起動。 ２．AUTOCAD画面で円を選択。 　　右クリックで確定 ３．VBA 動作　 　　円を青色に変更、Excelに座標を書き出す。 VBA CODE　エクセル Option Explicit Private AcadDoc As AutoCAD.AcadDocument     'ﾓｼﾞｭｰﾙ定義 Private AcadApp As AutoCAD.AcadApplication  ' AutoCAD アプリケーション変数 Public Sub AutocadSelectionSET()     Set AcadApp = GetObject(, "AutoCAD.Application")    ' xls追加     Set AcadDoc = AcadApp.ActiveDocument()               Dim objSelSet As AcadSelectionSet     Dim objEntity As AcadEntity     Dim objCircle As Acad...

エクセル　エラー ファイルを保存しようとすると　ファイルが保存できません。 DLLが読み込めません。などのエラーが発生した。 この時の状況 エクセル2003 2010の試用版をインストール マクロの参照設定で、Office14　MSWORD.OLBを選択 上記の状態から2010試用版をアンインストール エラー発生時に、環境設定、Office14　MSWORD.OLB　試用不可となっていたが、これを、削除できなかった。 対応策 マクロを無効で立ち上げて、環境設定を無効に設定することが出来た。

EXCELの条件付き書式で、セルの色が全部変わらない。 現象 ・改行以降の文字の色が変わらない。 ・先頭文字「・」のみの色が変わり、それ以降の文字が変わらない。 ・先頭文字「※」のみの色が変わり、それ以降の文字がかわらない。 対応方法 ・最初に指定したフォントを指定しなおす。 ・ディフォルトのフォントに設定しなおす。MSPゴシック等 ・個別に再度フォントを設定しなおす。

エクセル2010試用版　メモ ライセンスの切れたエクセル2010をマクロで起動すると保存が可能になる。     Set ExcelApp = CreateObject("Excel.Application")

エクセルの書式設定の計算式　メモ =MOD(ROW(),2)=0

メモ 通常起動すれば当然期限切れによる使用不可のExcel2010も、 A5:SQL Mk-2経由で起動されると通常使用できてしまう。

アクティブなセルの隣に、書式を複写するマクロです。 Sub Excel書式複写メッセージ()     Dim rc As Integer     rc = MsgBox("書式を選択中のセルの右に複写します？", vbYesNo + vbQuestion, "確認")     If rc = vbYes Then         Call Excel書式を右の列に複写する     Else         MsgBox "処理を中断します"     End If End Sub Sub Excel書式を右の列に複写する() '     Dim i As Long     i = ActiveCell.Column         Columns(i).Select     Selection.Copy     Columns(i + 1).Select     Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _         SkipBlanks:=False, Transpose:=False End Sub 参考リンク先 VBA ページ Word VBA Excelと連携 WORD VBA ユーザープロパティ エクセル登録 Excel VBA とAutocad 連携 エクセルからAUTOCADで選択中の円の座標を取得 （Ver.2） EXCEL to AUTOCAD 使用していない名前削除　EXCEL VBA エクセル変換表の内容で、AUTOCADの文字を書き換えるVBA Excel PowerPoint(PPT)   連携 エクセルからパワーポイントのノートを書き込むVBA Excel VBA EXCEL　VBA　今のセルの隣に書式をCOPYする EXCEL　V...

アクティブセルを基準にマクロを起動させる場合。 一番上のセル（空白の次の行）をアクティブセルに選択したい場合がある。 '開始位置 一番上のセル？　違う場合は一番上をアクティブにする     If ActiveCell.Offset(-1, 0).value <> "" Then    Selection.End(xlUp).Select End If

単純なマクロですが、 シートのいろんな場所にいるとき、CTRL+Home　でもいいですが、 マクロボタンにしておくと、便利です。 Sub 移動ホーム()     Range("A1").Select End Sub 単純なVBA 参考リンク先 VBA ページ Word VBA Excelと連携 WORD VBA ユーザープロパティ エクセル登録 Excel VBA とAutocad 連携 エクセルからAUTOCADで選択中の円の座標を取得 （Ver.2） EXCEL to AUTOCAD 使用していない名前削除　EXCEL VBA エクセル変換表の内容で、AUTOCADの文字を書き換えるVBA Excel PowerPoint(PPT)   連携 エクセルからパワーポイントのノートを書き込むVBA Excel VBA EXCEL　VBA　今のセルの隣に書式をCOPYする EXCEL　VBA ホーム位置にセルを移動 EXCEL　A1のセルの名前のファイル名をアクティブにする。 EXCEL VBA 行挿入

多くのエクセルファイルを扱っていると、ファイルが重なってしまって、 煩わしくなりますので、 A1　に、ファイル名を記入しておいて、そのファイルをアクティブにします。 Sub BackToMainSheet()     Dim WB0 As Workbook       ' ワークブック     Dim str As String       str = Range("A1").Value       Set WB0 = Workbooks(str)     WB0.Activate End Sub 参考リンク先 VBA ページ Word VBA Excelと連携 WORD VBA ユーザープロパティ エクセル登録 Excel VBA とAutocad 連携 エクセルからAUTOCADで選択中の円の座標を取得 （Ver.2） EXCEL to AUTOCAD 使用していない名前削除　EXCEL VBA エクセル変換表の内容で、AUTOCADの文字を書き換えるVBA Excel PowerPoint(PPT)   連携 エクセルからパワーポイントのノートを書き込むVBA Excel VBA EXCEL　VBA　今のセルの隣に書式をCOPYする EXCEL　VBA ホーム位置にセルを移動 EXCEL　A1のセルの名前のファイル名をアクティブにする。 EXCEL VBA 行挿入

現在選択されているセルの行の下に行挿入をする。 Sub ExAddRow001()     Dim WS0 As Worksheet     Set WS0 = ActiveSheet     Dim AcRow As Long     Dim Accolumn As Long     Dim AcAddr As String       AcRow = ActiveCell.Row     Accolumn = ActiveCell.Column     AcAddr = ActiveCell.Address     Rows(AcRow).Copy       '現在行コピー     Rows(AcRow + 1).Insert '次の行に挿入       Set WS0 = Nothing End Sub ' 現在のセルの行をCOPYして次の行に挿入貼付け（メッセージ有） Sub ExAddRow_001()     Dim WS0 As Worksheet     Set WS0 = ActiveSheet     Dim AcRow As Long     Dim Accolumn As Long     Dim AcAddr As String         AcRow = ActiveCell.Row     Accolumn = ActiveCell.Column     AcAddr = ActiveCell.Address     Dim rc As Integer     rc = MsgBox("処理を行いますか？", vbYesNo + vbQuestion, "確認") ...

エクセルでリンク先を確認する方法 メニュー　編集　リンクの設定　を選択 リンク元が表示される。 「リンク元を開く」リンク元のファイルを開くことも可能 多くのリンク先が複数ある場合にも、「リンク元の変更」変更することも可能 エクセルの計算式を、置換することなく変更することができます。 参照するセルが多い場合には、先にリンク元を開いておくと時間が短くなります。 リンク先を開いていない状態で、「リンク元を変更」を行うと時間がかかる場合があります。

エクセルからAUTOCADの現在使用していない名前を削除する VBA CODE Option Explicit Private AcadDoc As AutoCAD.AcadDocument     'ﾓｼﾞｭｰﾙ定義 Private AcadApp As AutoCAD.AcadApplication  ' AutoCAD アプリケーション変数 ' --- 現在使用していない名前を削除する ' --- AcadDoc.PurgeAll ' --- Autocad 2006 Excel2003 Sub DeleteNameDraw()     Set AcadApp = GetObject(, "AutoCAD.Application")    'xls追加     Set AcadDoc = AcadApp.ActiveDocument()              'xls追加     '使用していない名前を削除     AcadDoc.PurgeAll End Sub 参考リンク先 VBA ページ Word VBA Excelと連携 WORD VBA ユーザープロパティ エクセル登録 Excel VBA とAutocad 連携 エクセルからAUTOCADで選択中の円の座標を取得 （Ver.2） EXCEL to AUTOCAD 使用していない名前削除　EXCEL VBA エクセル変換表の内容で、AUTOCADの文字を書き換えるVBA Excel PowerPoint(PPT)   連携 エクセルからパワーポイントのノートを書き込むVBA Excel VBA EXCEL　VBA　今のセルの隣に書式をCOPYする EXCEL　VBA ホーム位置にセルを移動 EXCEL　A1のセルの名前のファイル名をアクティブにする。 EXCEL VBA 行挿入

エクセルからAUTOCADで選択中の円の座標を取得 選択している円のデータ情報を知りたいという質問がありましたので、下記のように変更しました。 SelectionSets.Add　選択セットを使用しています。VBAの最後に削除しています。 AUTOCADのコードでは、ThisDrawingですが、Excelから設定するには、AcadDocと書き直します。 ThisDrawing.SelectionSets.Add("Sample") AcadDoc.SelectionSets.Add("Sample")  AcadDocは下記のように定義 Set AcadDoc = AcadApp.ActiveDocument() 参照設定 AutoCAD 2021 Type Library にチェックしています。 AUTOCADで、選択した円のデータを抽出 １．マクロ起動後、 ２．AUTOCAD画面で円を選択。 ３．円を青色に変更して、Excelに座標を書き出す。 VBA CODE Option Explicit Private AcadDoc As AutoCAD.AcadDocument     'ﾓｼﾞｭｰﾙ定義 Private AcadApp As AutoCAD.AcadApplication  ' AutoCAD アプリケーション変数 Public Sub AutocadSelectionSET()     Set AcadApp = GetObject(, "AutoCAD.Application")    ' xls追加     Set AcadDoc = AcadApp.ActiveDocument()               Dim objSelSet As AcadSelectionSet     Dim objEntity As AcadEntity     Dim objCircle As AcadCircle     Dim Str As String     Dim N   ...

エクセルからAUTOCAD 使用していない名前を削除する。 AUTOCAD マクロ ThisDrawing.PurgeAll エクセルからのマクロ AcadDoc.PurgeAll エクセルから開いているAUTOCADの図面に対して実行します。 excel2003　mdt2006 参照設定例 エクセルのマクロ Option Explicit Private AcadDoc As AutoCAD.AcadDocument　'ﾓｼﾞｭｰﾙ定義 Private AcadApp As AutoCAD.AcadApplication　' AutoCAD アプリケーション変数 Sub DeleteNameDraw()     Set AcadApp = GetObject(, "AutoCAD.Application")    'xls追加     Set AcadDoc = AcadApp.ActiveDocument()              'xls追加       AcadDoc.PurgeAll　　'使用していない名前を削除 End Sub

データ追跡機能付きテンプレート ウィザード　TemplateInformation 個別のファイルとデータベースファイルの概念 簡単な説明 図のように、個別のファイルの内容がデータベースに保存される。 個別のファイルは、「新規」登録することで、データベースに追加することが可能。 個別のファイルを管理するのみで、データベースファイルは自動に更新される。 データベースファイルは、開いていても、閉じていても更新することが可能。 個別ファイルの任意のセルをデータベースファイルに登録する方法が、 テンプレートウイザードですが、これは、非常に操作がわかりずらいので、下記のように、「TemplateInformation 」シートを編集することでも実現できます。 TemplateInformation sheetの表示方法 VBE画面で、Sheetの設定を、「-1 -xlsheetVisible」とする。 シート列、行の幅、高さ設定 シートの幅、列は、最少の設定にしてあるため それを、手動で変更するときに、手間がかかるので、マクロで幅、列を設定するようにしました。 シートの幅、行が、最少に設定してあるので、見えるように設定するマクロ Option Explicit Sub RowColumnVisible001()     '行、列の幅を再設定     Rows("1:65535").RowHeight = 26.25     Columns("A:IV").ColumnWidth = 10 End Sub 「TemplateInformation」シートの内容説明 B3：データベースファイルの保存先 C6：テーブルの名前 E3：フィールドの数 G6：このテンプレートのコード？　データベースの非表示の列に表示されているものと一致 B7-K7：フィールドの名称(現在10個) B8-K8：フィールドデータ 「TemplateInformation」シートは上記のような内容になっていることがわかりました。 この内容が、データベースファイルに転記されるしくみになっているようです。 会社のサーバーが破損してし...

データ追跡機能付きテンプレート ウィザード」というアドインについて、 MAC版 アドインに、設定することはできても、テンプレートウイザードを起動することができませんでした。 Windows 版の2010 起動時に、テンプレートのエラーメッセージが出る。 これは、一度、テンプレートウイザードを起動して、キャンセル　すると、その後は、使用することが 可能になりました。

Microsoft Office 2011 for MacでExcelのシート名を変更できない不具合の対処法 不具合内容 シートの名前の変更を変更しようとすると「シートまたはグラフの名前が無効です」と エラーダイアログが表示され変更できないことがあります。 このときに、「戻る」のボタンが押せない状態になってしまいます。 調べてみると、無限ループになっている様子。 対処法としては エラーメッセージが出た場合は 「ESC」 キーで戻ることができます。 一度保存してブックを閉じてから開き直し、再度シート名の変更をすると 正常に変更することができます。 Windows版では、こういったことが無いので、Macをエクセルで使用するときには注意が必要です。