VBAエラーの備忘録
■「引数が無効です」エラーの解決
以下の内容が含まれていないか確認。
formulaversion:=xlReplaceFormula2
開発>マクロの記録を実行すると、このパラメーターが記録されます。
エラー原因になることもあるようなので削除しておくのが無難。
初心者向け🔰Excel/winショートカット!仕事が早くなる!
これを全てできたら仕事が早くなります📝
※単純なコピペショートカットキーなどは省略してます
■Excel
「F4」:直前のコマンド繰り返し
「K」+「Ctr」:文字にハイパーリンク挿入
「D」+「Ctr」:上のセルをコピペ
「R」+「Ctr」:右のセルをコピペ
「E」+「Ctr」:フラッシュフィル
「Shift」+「Ctr」+「↓」or「↑」:入力セルまで移動
「H」+「Ctr」:検索・置換ウィンドウ立ち上げ
「:」+「Ctr」:現在時刻入力
「;」+「Ctr」:現在日付入力
「Esc」:数式入力中に抜ける
■win共通
「Tab」+「Alt」:ウィンドウ切り替え
「Win」+「→」or「←」:ウィンドウ移動
「Win」+「L」:ログオフ
仕事で役立つ?Excel関数!
📝わたしがお仕事でよくつかうExcel関数まとめ
気になるものはweb検索🔍
■A9の日付をyyyymmddの形式のまま関数で他セルと連結させる
=TEXT(A9,"yyyymmdd")&I9
■セル範囲A3:F100に、セルA1と一致するデータがあるかないかを確認
=IF(COUNTIF(A3:F100,A1),"〇","×")
■VLOOKUPより使えるXLOOKUP
=XLOOKUP(E2,A2:A8,B2:C8,”該当なし”,0,1)
■ファイル名を取得し、文字を連結させる
="連結させたい文字"&MID(CELL("filename"),SEARCH("[",CELL("filename"))+1,SEARCH(".",CELL("filename"))-SEARCH("[",CELL("filename"))-1)
■複数のシートでVLOOKUPしたい
=VLOOKUP(C3,INDIRECT("'"&B3&"'!E:O"),11,FALSE)
■エラーなら空で表示
=IFERROR(数式,"")
◾️縦と横で検索するvlookup
=VLOOKUP(E2,C6:H10,MATCH(C2,D5:H5,0)+1,0)
■検索文字と一致するセルにハイパーリンクを張る
=HYPERLINK("#"&CELL("address",INDEX(リスト,MATCH(検索値, リスト,0))),"表示名")
VBAのメモ
ループ処理でエクセルを保存
■デスクトップのパスを自動取得
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
Dim DesktopPath As String
DesktopPath = WSH.SpecialFolders("Desktop")
Set WSH = Nothing
■日付
'YYYYMMDD1, YYYYMMDD2を宣言
Dim YYYYMMDD1, YYYYMMDD2
'年月日
YYYYMMDD1 = Format(Now(), "yyyy/mm/dd")
'年月日「/」なし。
YYYYMMDD2 = Format(Now(), "yyyymmdd")
■ループ処理
Dim i As Long: i = 56 'iに56を代入
'Sheets(1)の56行以降かつ1列目に入力がある場合は以下をループで実行
Do While Sheets(1).Cells(i, 1).Value <> ""
'Sheets(2)("A1")に日付を入力
Sheets(2).Range("A1").Value = YYYYMMDD1
'Sheets(2)("A1")にSheets(1)(i行目, 1列目)の値を入力
Sheets(2).Range("A2").Value = Sheets(1).Cells(i, 1).Value
' FilNameは、Sheets(1)(i行目, 1列目)※保存時の値に使用
FilName = Sheets(1).Cells(i, 1).Value
' i は 1ずつ増える
i = i + 1
'AとBを新規Excelへコピー
Sheets(Array("A", "B")).Copy
ActiveWorkbook.SaveAs Filename:=DesktopPath & "\" & YYYYMMDD2 & "abcabc" & FilName.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Loop
End Sub
その他
■メッセージボックス
MsgBox "処理完了"
Excelシート内の棒グラフ操作
全グラフの凡例を削除
Dim cho As ChartObject
Worksheets(1).Select
For Each cho In ActiveSheet.ChartObjects
cho.Chart.HasLegend = False
グラフを太くする(グラフ間隔を狭くする)
For Each cho In ActiveSheet.ChartObjects
cho.Chart.FullSeriesCollection(4).Select
ActiveChart.ChartGroups(1).GapWidth = 4
Next
月給9万円で暮らしていたフリーター時代
さて、今回は私が
月給9万円で、住みたい街ランキングで毎回上位の、吉祥寺近辺で暮らしていた頃のお話です。
※仕送りゼロ
まず、なぜ月給9万円だったのか?ということなのですが
フリーターをしていた頃、某美術館で週3〜4日働きながら、通学もして、中高の教員免許をとっていました。
短期間で必要な単位をとるために、なるべく通学する日にちをとっていた為です。
そんな事情で、極貧生活をしていた1年間。
(通学自体は3年ほどしましたが、最初の1年目が授業をとりまくって忙しかった)
9万円の給料の内訳は、、、
家賃5万円
食費1万円
脱毛ローン1.4万円
あとは、光熱費や生活日用品などで消えてました。
脱毛ローンは本当に後悔しました、、(脱毛効果ないし!)
こんなんで貯金なんて到底できません。
友達からの遊びの誘いも、お金がないからと断ったことも沢山ありました。
とってもひもじかったです。
まぁ、自分で選んだ道で覚悟はしていたんですが、、。
生活費の中で1番抑えられる出費は、食費でした。
1日の食費を300円と決めて、もやしを食べたり塩おにぎりを食べたり。
でも、色々と工夫をするのも楽しかったですし、たまの贅沢で食べれるガストのオムライスやドトールのケーキが、本っ当に美味しくて幸せでした(笑)
食べ物への感謝の気持ちが、増し増しになりました。
沖縄に旅行も行けたし、何とかなるな〜と思いました。
こんな感じで、都内でも9万円で暮らせます!というお話でした。
(ただし、忍耐がいるかも)
PCの電源ボタンの場所さえ分からない私がIT企業に転職した話し。
今回は、PCの電源ボタンの場所さえも分からなかった私がIT企業に転職した事について、話そうと思います!
まず私のIT企業に転職した時のスペックについて。
- 前職は教育現場(全くPCを使わない職場)
- キーボードを打つ速さは雑魚(同期の中で最下位)
- エクセルの操作テストは10点(100点中)
※表制作出来ない、行の高さを変えられないレベル
- PCの電源ボタンの場所が分からない
というか、液晶画面を指で押したら何かなってしまうと思っているレベル(謎)
- 知っているショートカットキーは、コピペのみ
挙げたらキリが無いんですが、現場で話して引かれたことはざっくりこんな感じ。
こんな雑魚な私がなぜITに?ということなんですが、
前職の教育現場を退職してから、中高の美術の教員免許をとる勉強をしつつフリーターをしていた私。
教員免許を取得した頃に、さぁ転職しよう!と思いました。
その時に、これから世の中に残っていく職業について考えてみたんです。
合っているか間違っているかは置いておいて、この私は3つは残るだろうと思ったんです。
【教育】【クリエイティブ】【IT】
まず、【教育】については、教員免許を取得した。【クリエイティブ】については、美大を卒業してある程度の知識と技術はついているもの(仮)とします。
あと全く足りないものは【IT】だな、となりました。
そして、即行動!
初めての転職で不安だったので、有名な転職サイト(D●DA)に登録。
1ヶ月の転職活動中、7社受けて4社から内定をいただきました。
ITは人材不足だからか?勝率は悪くなかったです。
そして、内定をいただいたとある会社(今働いている会社)に入社しました。
未経験者歓迎!の会社だけあり、とても手厚い研修。
研修後に、現場に配属しました。
現場に配属した私のスペックは、ほぼ上記のまま。
現場に入ってからの忙しさにビビりました、、、
けど、負けん気だけはある私。
先輩のショートカットキーをひたすら真似する&マウスを封印して、キーボード操作のみで頑張ってみる
休日はタイピングの練習
分からないことはググる
という地道な作業で、半年後には
キーボード操作だけでほぼPCを使えるようになりました。
本当に何も出来なかった私に根気よく教えてくれた先輩に、感謝してもしきれません、、。
バリバリ仕事できて尊敬する先輩を持つと、あの人のように出来たらカッケーだろうなぁ〜と、かなりモチベーションになります。
そんな感じで、IT未経験・PC初心者から
なんとかIT企業で働き続けています。
財布を無くした!紛失発覚から、わたしがとった行動【11/24〜11/30完結】
はい、財布をなくしました、、。
自宅から自宅前のコンビニの往復だけの間に落としたものとみられます。
そこで、財布を無くしてから私がとった行動をメモしていこうと思います!!
ちなみに財布には、現金は入っていませんでした。(キャッシュレス派やで☆)
・銀行のキャッシュカード3枚
・クレジットカード1枚
・自宅から職場までの往復の定期券
が入っていました。
【11/24㈯】
12:00 自宅前のコンビニまで昼ごはんを買いに外出、帰宅してしばらくゴロゴロ〜
17:00 1日しっかり干物女して、さてさて夜ご飯でも買いにいくか〜。財布財布〜。、、、、、無い!!財布が無い!!!
17:XX コンビニに着て行ったコートのポケットや、家中を探しました。
名探偵のように、コンビニから自宅まで帰った時を再現しながらウロウロ探し歩く。
15分くらい、家の外のどこ探してもマジで無い、、、って事に。
ここで、クレジットカード会社に電話。
クレジットカードのお姉さんの優しい対応に涙ちょちょぎれました、、。
17:XX 警察に電話。財布は届いていませんでした。
明日にでも紛失届け出してねって言われて終話。
18:XX そわそわ落ち着かないので、近くの交番へ。紛失届けを提出。
19:XX なんか変に落ち着いて家のなかで餅食べながらチル。You Tubeみてチル。
財布を無くしたことをネタにしているYoutuberを見て自分を勇気づけて傷を癒やす時間。(はじめしゃちょーめっちゃ財布無くした動画ある、、、)
22:XX 銀行のキャッシュカードの利用停止&再発行手続き。
私は三菱ufj銀行の手続きは以下のサイトからDLできるアプリでしました。
再発行には、500円くらいかかるらしいです。
ここまでが本日の流れです!
財布は見つかるのか!?乞うご期待!☆
本日のミッション(済)ーーーーーーー
- 警察に届け出
- 銀行のキャッシュカード停止
- クレジットカードの利用停止
- 同じ境遇の人を見て精神を落ち着かせる(日本で財布が手元に返ってくる確率は65%らしい)
〜11/25㈪更新〜
【これまでのあらすじ】
・昼ごはんを買いにコンビニに行ったら財布を落とした
・クレジットカード停止
・警察に届け出
日曜日に財布を無くして
その日はいつもの通り、筋トレをして寝ました。
今朝は、定期券も無いため、電車にのるためのお金を彼氏に持ってきて貰いました、、。
すっごい心配した顔で駆けつけてくれた彼氏。
(なんて優男、なんて女、)
そして家で10分瞑想をしてから電車にのり、職場へ。
職場に着いてから1日の仕事を終わらせて、無くした銀行のキャッシュカードの手続きをするために、午後から半休をとりました。
まず、お金を手に入れるために三菱ufj銀行へ。
家にあった通帳と印鑑で、給料全額を引き落としました。
少ない給料だけど、せっかくなら面白いし帯付きにしよう!
と思い、全額を千円札にしましたが、重くなっただけで別に全然面白くなかった(笑)
みずほ銀行へ行って、キャッシュカード再発行の手続き。
その後に、
・クレジットカード会社へ電話。
・PASMOの再発行は、メトロと私鉄どっちの駅の窓口でも出来るらしく、最寄りのメトロの駅で手続き。
・家賃が3日後に口座引き落としだったので、直接家賃を振り込める口座を教えてもらいました。
不幸中の幸いで、給料日当日ということもあり、お金の不安はなくて済みました。
(月末はだいたい金欠でカード払いですから(汗))
そして。今夜のミッションはまだ終わりません。
会社の歓送迎会の幹事をやります!!
やりきりまーす!
本日のミッション(済)ーーーーーーー
- 電車賃を借りる(1000円)
- 給料を全額引き出し(○○万円)
- 銀行のキャッシュカード再発行(ついでに捨てていた通帳も発行したので(1000円×2)
- 家賃を払っている会社に電話
- クレジットカード会社に電話
- PASMO再発行(1020円)
※次の日に貰った証明書と定期を駅で引き換え。
その時に本人確認書類(マイナンバーカード等)が必要。
- 歓送迎会の幹事(これから夜)
お金が飛んでいく〜〜
良ければsuzuriで何か買っていただけると泣いて喜びます。
Moritou Ayaka ( tamao234 )のオリジナルグッズ通販 ∞ SUZURI(スズリ)
そして
まだ、「財布が見つかった」といったお知らせは来ていません、、。
(今更返ってきても遅いですが(笑))
ようやく、一日中歩き回って一段落しました。
今後、急展開はあるのか!??
あったらまた続きを書きます!!☆
【続報!】
財布が無くなり、早 一週間、、。
ある日。私の家のインターホンが鳴りました。
「ピンポーン」
私(誰だろう、、、)
「ピンポーン」
私(居留守するか、、、)
2回鳴ってからピンポーンは鳴りやみ、
私はYoutubeを見ていました。
すると、見知らぬ番号から電話が、、、。
電話をかけてきたのは、住んでいるマンションの一階に住んでいる管理人さんから。
管理人「あなた最近、財布落としませんでした?」
なんと、管理人さんの家のポストに私の財布が入れられていたとのこと!
マンション近くで落とした財布を、誰かが拾っていれたんだと思います。
なんて親切なんだ!!
ありがとう!多分マンションに住んでいる誰か!
見知らぬ優しい人に感謝しつつ、
PASMOを駅に持っていって500円に換金してきます、、
もう財布は、二度と落としません!
【【完】】