sangu

学生時代、努力した割に、不本意な進学をしたコンプレックスから、苦手ながらもお勉強をする…

sangu

学生時代、努力した割に、不本意な進学をしたコンプレックスから、苦手ながらもお勉強をする行為が好きです。EXCELvba、ACA、貿易実務検定等取りたい資格は増えるばかりでもちろん、勉強は続きませんが。。。

マガジン

  • EXCEL VBA関係

記事一覧

高校合格おめでとう

 姪っ子が第一希望の高校に受かりました。中学2年からずっと行きたかった高校みたいだから、叔母としては嬉しい。幼稚園から小学校2年まで、少し海外生活したから、ぴっ…

sangu
5か月前
2

検査だらけ

今週の月曜日、半休とって半年ぶりに婦人科検診行ってきた。仕事から解放されたからか、なぜか無性に「すき家」にいきたくなり、高菜明太マヨ丼の豚汁生卵セットを平らげた…

sangu
1年前

忘れぬうちに

いきなりやめる一週間前に面倒くさい仕事頼まれた。 フォルダにエクセルファイルでまとめたデータを必要なデータをとって まとめてくれだと。その時に役に立つマクロを下記…

sangu
1年前

就活(派遣)の総括

 とりあえず次の職場が決まった。受発注ありの一般事務とちょこっと英文事務がある。能力によって、英語対応がない場合もある。今回、約一カ月の転職活動(といっても次の…

sangu
1年前
2

ワークシート作りすぎた。明細知りたいときのマクロ(一覧表示できるよ)

Sub ワークシート名書き出し() Dim 索引 As Long '変数「索引」を宣言 MsgBox "ワークシートの数は" & Worksheets.Count & "です" For 索引 = 1 To Worksheets.Count …

sangu
1年前
1

シートが多すぎて、移動するためのマクロ(シートのインデックス番号を入力)

Sub 該当シートを選択() Dim i As Varianti = Application.InputBox(prompt:="数字を入力してください", Type:=1)If i = False ThenExit SubElseThisWorkbook.Sheets(i).A…

sangu
1年前

テンプレートのシートをリスト分コピーするマクロ

Option Explicit Sub CreateSheets() Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = ThisWorkbook.Worksheets("リスト") Set ws2 = ThisWorkbook.Worksheets("テンプ…

sangu
1年前

大腸内視鏡検査記録

 前日から食事調整、通常通り出勤、クリニックから渡された紙の注意事項を読みつつ食事に気を付ける。晩御飯はクリニックで購入した食事キットを食する。以外に美味しかっ…

sangu
1年前

シームレスに行きたい

 今の職場ともあと2週間足らずでお別れ。「Say-good bye!」だ。できればシームレスに次の職場に行きたいのが本音。職務経歴書を見直してみた。正社員、契約社員、派遣社…

sangu
1年前
1

モンブラン

sangu
1年前

「ギャー!」ぱっと目が覚めた。旦那を起こしてしまったが、心配そうに「大丈夫?」と言ってくれた。たまにみる悪夢。今回は、首を絞められた夢だった。印象的な夢みると、…

sangu
1年前
2

幼馴染のラインをブロックして削除した。理由は、私がどうでもいいことを送ってしまうから。彼女には彼女の守るべきものがある。昔のように、馬鹿を言って笑いあえないな。と思ったから。縁があればまた、どこかで会えるでしょう。

sangu
1年前

向田邦子の「阿修羅のごとく」という1970年代から80年代初期のドラマを見た。両親そして兄弟との距離の取り方が参考になった。私はいい歳して依存しすぎ(連絡)取りすぎだったと思う。

sangu
1年前

占い

とうとう予約してしまった。20数年前に四街道で有名な占い師に見てもらい、今は西日暮里に拠点を移されて活動されているということ。もっと早く見てもらえばよかったなあ。…

sangu
1年前
1

ひょんなことから、ソフトボールはじめました。
#ソフトボール初心者大人

sangu
1年前
1

英検準一級の勉強をしています。
非正規なので、不安な気持ちが意欲の元です。

sangu
1年前
1

高校合格おめでとう

 姪っ子が第一希望の高校に受かりました。中学2年からずっと行きたかった高校みたいだから、叔母としては嬉しい。幼稚園から小学校2年まで、少し海外生活したから、ぴったりの高校らしい。都立高校で帰国の子とか多いらしい。英語が独自問題らしい。文化祭がかなり盛り上がるみたいだから、私も行ってみたいな。場所が最強で、渋谷にも下北にもメチャクチャ近い。校則もほとんど無いみたいだね。ギャルになって、勉強が疎かにな

もっとみる

検査だらけ

今週の月曜日、半休とって半年ぶりに婦人科検診行ってきた。仕事から解放されたからか、なぜか無性に「すき家」にいきたくなり、高菜明太マヨ丼の豚汁生卵セットを平らげた。夕方から検査。いつも通り見てもらうと、何やら子宮筋腫が成長傾向なので、MRIをとりましょうとのこと。3月には胃カメラ(全身麻酔)、この間は大腸カメラ、今年は検査だらけだな。子宮筋腫の成長要因にやはり食生活も大きく関わっているとのこと。検査

もっとみる

忘れぬうちに

いきなりやめる一週間前に面倒くさい仕事頼まれた。
フォルダにエクセルファイルでまとめたデータを必要なデータをとって
まとめてくれだと。その時に役に立つマクロを下記に記載しとく。

Sub Dir関数でフォルダ一覧()

Dim strPattern As String, strFolder As String
strPattern = "C:\Users\USR17181\Desktop\temp

もっとみる

就活(派遣)の総括

 とりあえず次の職場が決まった。受発注ありの一般事務とちょこっと英文事務がある。能力によって、英語対応がない場合もある。今回、約一カ月の転職活動(といっても次の派遣先を決めること)で思ったことを綴っていくう!
 まず、派遣市場は3年前と比べて少し景気が良くなった気がした。求人はたくさんあるし、時給も上がっている。ただ、英語を使うことで、「抵抗なければ大丈夫、英検二級くらいあればOK」と謳っていると

もっとみる

ワークシート作りすぎた。明細知りたいときのマクロ(一覧表示できるよ)

Sub ワークシート名書き出し()

Dim 索引 As Long '変数「索引」を宣言

MsgBox "ワークシートの数は" & Worksheets.Count & "です"

For 索引 = 1 To Worksheets.Count '変数「索引」に1~ワークシート全数を代入、分繰り返し

Cells(索引, 2) = Worksheets(索引).Name 'ワークシー

もっとみる

シートが多すぎて、移動するためのマクロ(シートのインデックス番号を入力)

Sub 該当シートを選択()

Dim i As Varianti = Application.InputBox(prompt:="数字を入力してください", Type:=1)If i = False ThenExit SubElseThisWorkbook.Sheets(i).ActivateEnd If

End Sub

テンプレートのシートをリスト分コピーするマクロ

Option Explicit

Sub CreateSheets()
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("リスト")
Set ws2 = ThisWorkbook.Worksheets("テンプレート")

Dim cmax1 As Longcmax1 = ws1.Range("a65

もっとみる

大腸内視鏡検査記録

 前日から食事調整、通常通り出勤、クリニックから渡された紙の注意事項を読みつつ食事に気を付ける。晩御飯はクリニックで購入した食事キットを食する。以外に美味しかった。21時以降は食事をとらないようにし、スポーツドリンクとお茶と水のみで過ごさねばならない。21時30以降にラキソベロンという、目薬のような容器に入った液体を水200mlに溶かして飲む。飲んだ直後は何も起こらない。明け方、2、3回軽い腹痛が

もっとみる

シームレスに行きたい

 今の職場ともあと2週間足らずでお別れ。「Say-good bye!」だ。できればシームレスに次の職場に行きたいのが本音。職務経歴書を見直してみた。正社員、契約社員、派遣社員と、4半世紀の社会人生活で、なんと渡り歩いた会社は14社!我ながら動きすぎである。こんなつもりなかったんだけどな。それはそれとして、できれば、職場を変わるごとに心を入れ替えるかの如く、新たにスーツを新調したり、カバンを購入した

もっとみる

「ギャー!」ぱっと目が覚めた。旦那を起こしてしまったが、心配そうに「大丈夫?」と言ってくれた。たまにみる悪夢。今回は、首を絞められた夢だった。印象的な夢みると、必ずネットで調べる。変な時間に起きて眠れないのにまたブルーライトに目をさらす。何々?絞めてきた人は→「母親」「その人から自立したい」という心理の現れ。そうなのか?物理的にはもう半年も会ってないし、十分自立してると思ってる。それにしても、この

もっとみる

幼馴染のラインをブロックして削除した。理由は、私がどうでもいいことを送ってしまうから。彼女には彼女の守るべきものがある。昔のように、馬鹿を言って笑いあえないな。と思ったから。縁があればまた、どこかで会えるでしょう。

向田邦子の「阿修羅のごとく」という1970年代から80年代初期のドラマを見た。両親そして兄弟との距離の取り方が参考になった。私はいい歳して依存しすぎ(連絡)取りすぎだったと思う。

占い

とうとう予約してしまった。20数年前に四街道で有名な占い師に見てもらい、今は西日暮里に拠点を移されて活動されているということ。もっと早く見てもらえばよかったなあ。
20数年前は、高校時代の友人に誘われて、「韓国に留学するのはどうだ?」とか、「結婚はできるのか?どんな人か?」と聞いたと思う。印象的だったのは、手相を見て「男の影が薄い(笑)」「次男か三男の男性と結婚」という文言だった。結局、結婚は静岡

もっとみる

ひょんなことから、ソフトボールはじめました。
#ソフトボール初心者大人

英検準一級の勉強をしています。
非正規なので、不安な気持ちが意欲の元です。