注目の投稿

技術者として人として

 技術者として人として これまで、生きてきて、ひとりで解決していくものと考えていた。 知り合いなどの助言もあるが、それだけでも、やり切れない場合があった。 長い間、この性格を作り上げてきて正確などは、変わることがないだろうと決めつけていた。 思考は、そうそう簡単には変わらないもの。 ひとりでは、変わらないものであるということに気づくことができた。 日本では、カウンセリングという文化が浸透していないが、古くは仏教など、生活の為に、必要な事を、学ぶ機会が少ないと思う。 カウンセリングは、それを、実現できるものと思う。 ひとりでは解決できないこと、それは、正しい方法を見つけられないから。それを、学んでいないからで、専門的な第三者が心理学などを通して教えてくれることは救いとなる。 生きにくい世の中であることは間違いない。 生きやすくする方法もあると知ることができた。 技術者は孤独になるときがあり、ひとりでなんともならない時の対策方法を見失う時がある。日本ではカウンセリング文化が浸透していないような気がするが、ひとりでは解決出来ない時。救われる方法があると知る事になる。 https://t.co/LBKNwUyXg5 — chsugiyama (@chx_sugi_001) January 3, 2023
コメントを投稿

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, "確認")
   
    If rc = vbYes Then
        MsgBox "処理を行います"
        Rows(AcRow).Copy       '現在行コピー
        Rows(AcRow + 1).Insert '次の行に挿入
    Else
        MsgBox "処理を中断します"
    End If
   
    Set WS0 = Nothing

End Sub


コメント

コメントを投稿

このブログの人気の投稿

DesignSpark Mechanical オブジェクトの拡大、縮小　"Scale the body"

イメージ
デザインスパークメカニカル　オブジェクトの拡大、縮小 DesignSpark Mechanical "Scale the body" デザインスパークは無料のソフトですけど、使いやすいソフトです。使い方が分からない所がありますが、大体の事は出来ると思います。 その中でも、拡大縮小は、分かりませんでしたが、調べてみると下記の方法でちゃんと、数値入力でも可能ということが分かりましたので、メモします。 説明動画YOUTUBE  https://youtube.com/shorts/XwRMVjA6BDI?feature=share 説明動画YOUTUBE  プル　ボディをスケール https://youtu.be/VexvsAR076Q 操作説明 編集メニューの「プル」上部の赤矢印をクリック後に、アイコン「ボディをスケール」赤矢印 により、拡大、縮小が可能になります。 操作方法 「ボディをスケール」をクリック 下の図のアイコンをクリック。アイコンが選択されると大きくなります。 アンカーポイントを選択 ボディをスケール(拡大縮小したいオブジェクト)するアンカーポイントを選択する。 左下の角を選択すると、下記のように、選択された点に、マークが表示されます。 ※オブジェクトを選択後に、アンカーポイントを選択しても可能です。 アンカーポイントが基準の位置になります。 この位置（アンカーポイント）は変わりません。 拡大、縮小したいオフジェクトを選択する。 オブジェクトの選択は、ストラクチャのSOLIDを選択。 下の図の場合は、「四角」と、「NF3(ABT)」のSOLID、複数のSOLIDを選択しています。 ※オブジェクト選択後にアンカーポイントを選択しても可能です。 右のプル矢印（赤丸部）が表示されます。 この矢印をドラックまたは、数値を入力することで、拡大、縮小が可能。 数値を入力すると数値入力。ドラックすると、任意のサイズに拡大縮小が出来ます。 動画では、数値入力で２倍、0.5倍などを行っています。 その他の操作方法リンク DSMについて DSM 曲線SOLIDからパスを作成する方法 DSM コピー COPY方法 DSM オブジェクトの拡大、縮小 DSM5 Solidの分割 DSM コンポーネントの移動ができない DSM5 で、2つの図の面(角度)を合わせる
続きを読む

EXCEL VBA EXCELの表からAUTOCADの文字を書き換える.　EXCEL VBA Rewrite the characters of AUTOCAD from the table of EXCEL.

イメージ
EXCEL VBA EXCELの表からAUTOCADの文字を書き換える.　 EXCEL VBA Rewrite the characters of AUTOCAD from the table of EXCEL. エクセルの変換表にしたがって、AUTOCADの文字列を変更するコードです。 A1セルに検索する文字、名前を「検索文字」 B1セルに変換後の文字、名前を「変換文字」 としておきます。 下記のコードは、マルチテキストです、 If ent.ObjectName = "AcDbMText" Then　 この行で、マルチテキストかどうかを判断しています。 ここを、ダイナミックテキストにする場合には、 If ent.ObjectName = "AcDbText" Then　 とします。 オブジェクトの名前が、わからなかったのですが、ブレークポイントを、図の位置に設定しておいて CADの図に、両方のマルチテキストと、ダイナミックテキストを書いておいて、 ブレークポイントに止まったときに、ent.ObjectName の内容を確認することで、 確認することが出来ました。 ObjectNameが分からないときには、円や、Line、Solidなど、 CAD上に作図しておき、ブレークポイントで確認することで、Nameを確認することが出来ます。 ただ、ブロックの属性について、調べていたのですが、まだ、分かっていません。 ローカルウインドウに、何か、表示されていないかと、調べたのですが、探しきれませんでした。 ただし、ブロックエディタの画面でも、テキストの内容がわかりますので、 ブロックエディタ画面で、文字の変更は可能です。 おそらく、Block, Model,Paper このあたりが、なにかあるとおもっているのですが。 下記のコードはモデル空間に対してのマクロになり、ブロックに対しては、違う方法になるのだと、 現在は、１文字ですが、これを、FOR分などで、変換文字列をぞれぞれ、確認するようにすれば、 CAD上の文字変換が可能になります。 変換する文字のサイズの変更や、色の変更も、たぶん必要になってくると思っています。 サン
続きを読む

エクセルからパワーポイントのノートを書き込むVBA

イメージ
エクセルからパワーポイントのノートを書き込むVBAを作成しました。 エクセルには、ページ数と、ノートの項目を入力しておきます。 セルの内容を、各ページのノートに入力します。 開いているパワーポイントに対して、処理をします。 現状の問題点 エクセルのセルの中で改行がある場合に、パワーポイントでは１行となるところを、下記の判定を追加することで、パワーポイントのノートに改行を追加することが出来ました。 これを、下記のコードに盛り込めば、対応が可能にあります。         If InStr(str, vbLf) Then             str = Replace(str, vbLf, vbVerticalTab)         End If エラーの処理がないので、パワーポイントのファイルが開いていない場合には、エラーで止まります。 改善点としては、 ファイルの指定をしておいて、一度に、複数のファイルに対して、処理をするということも検討中。 Sub ExceltoPPtNote()     Dim varRng As Variant     Dim intSNum As Integer     Dim i, j As Integer     Dim MaxPage As Long       Dim PpApp As PowerPoint.Application     Dim PpPrs As PowerPoint.Presentation     Set PpApp = CreateObject("PowerPoint.Application")     Set PpPrs = PpApp.Presentations.Item(1)       MaxPage = Range("ページ数")     PpApp.Visible = True        'PowerPointの表示     intSNum = 1                 'スライド番号用変数の初期設定     'セルの値を各ページのノートに入力     For i = 1 To MaxPage  
続きを読む