かぐやのパソコン活動!

アイカツ好きのパソコン活動!

VBA練習3!

今日も今日とてパソコン活動!パソ活!

 

今日のパソ活もVBAです

前回と同じくExcelの神髄さんの練習問題9をやりました(/・ω・)/

 

練習問題9はセルの背景色とフォントの色を変更する問題です。

VBAの資格でちょろっとやった気がしますが完全に忘れてましたね(笑)

 

調べたところ背景色はinterior.colorindexをフォントの色はFont.colorindexを使用するようです( ..)φメモメモ

 

調べて使えればセーフだよね?

 

条件分岐はSelect Caseで行いました。

 

下記が自分が記述したコードになります。

 

まだまだパソ活頑張ります!

Sub 練習9()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 4) = Cells(i, 3) / Cells(i, 2)
        Select Case Cells(i, 4)
            Case Is >= 1.05
                Cells(i, 4).Font.ColorIndex = 2
                Cells(i, 4).Interior.ColorIndex = 5
            Case Is >= 1
                Cells(i, 4).Font.ColorIndex = 5
            Case Is >= 0.95
                Cells(i, 4).Font.ColorIndex = 1
            Case Is >= 0.9
                Cells(i, 4).Font.ColorIndex = 3
            Case Else
                Cells(i, 4).Font.ColorIndex = 1
                Cells(i, 4).Interior.ColorIndex = 3
            End Select
    Next i
End Sub

 

VBA練習2!

パンは何も付けない派!

かぐやです!

 

今日も今日とてパソコン活動!パソ活!

 

今日はExcelの神髄さんのVBA練習問題を解きました!

 

練習問題7はぼけーっとしてて飛ばしちゃいました(笑)

 

練習8の表示形式を変える問題はFormat関数でやったらA列の表示形式がうまく変わらなかったので調べて解きました(*ノωノ)

 

NumberFormatlocal関数を使って解くみたいですね!

Excelの神髄さんは本当に勉強になります!

 

みなさんも是非チャレンジしてみてはいかがでしょうか?

 

下記は自分が実際に記述したコードになりますヾ(≧▽≦)ノ

Sub 練習4()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 2) < Cells(i, 3) Then
            Cells(i, 4) = "×"
            Cells(i, 5) = Cells(i, 2) Mod Cells(i, 3)
        Else
            Cells(i, 4) = Cells(i, 2) \ Cells(i, 3)
            Cells(i, 5) = Cells(i, 2) Mod Cells(i, 3)
        End If
        Next i
End Sub
Sub 練習5()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 4) = Cells(i, 3) / Cells(i, 2)
        Select Case Cells(i, 4)
            Case Is >= 1.05
                Cells(i, 5) = "S"
            Case Is >= 1
                Cells(i, 5) = "A"
            Case Is >= 0.95
                Cells(i, 5) = "B"
            Case Is >= 0.9
                Cells(i, 5) = "C"
            Case Else
                Cells(i, 5) = "D"
        End Select
    Next i
End Sub
Sub 練習6()
    Dim i As Long
    Dim Sum As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
        Sum = Sum + Cells(i, 4)
    Next i
    Cells(i, 4) = Sum
End Sub
Sub 練習8()
    Dim i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
    Next i
        Columns(1).NumberFormatLocal = "yyyy/mm/dd"
        Columns(4).NumberFormatLocal = "#,##0"
End Sub

VBA練習!

 

食パンは何もつけない派!かぐやです!

 

今日のテーマはExcelVBAです。

 

皆さんはExcelVBAって知ってますか?

僕が知ったのは3年前くらいです。

MOS試験の範囲にマクロの登録という項目があり知りました。

 

ざっくりと説明するとあらかじめ決めた操作を自動で操作するためのプログラムを作ることです。

 

当時はよくわからない難しいものという印象で自分がやることはないかな~と

スルーしていましたが、今の職に就いて触れる機会があり、

今年に入ってから6月までVBAベーシックという資格を通じて勉強していました。

 

資格は取ったものの普段の業務で使用するわけではないのであまり使う機会がありません。

というのも、めちゃくちゃできる先輩が作ったマクロがあるので自分で新しく作る必要性がないんですよね一一)

 

しかし使ってないと使い方を忘れてしまうのでお休みの日にExcelの神髄さんの練習問題に挑戦して

勉強&ブログのネタにしようかなと思います。

 

今日やったのはマクロVBA練習問題の13です。

 

自分が作ったコードは下記のとおりです。

 

Sub 練習1()

    Dim i As Long

        For i = 2 To 11

            Cells(i, 4) = Cells(i, 2) / Cells(i, 3)

        Next i

End Sub

 

Sub 練習2()

    Dim i As Long

        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

            Cells(i, 4) = Cells(i, 2) * Cells(i, 3)

        Next i

End Sub

Sub 練習3()

    Dim i As Long, j As Long

        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

        For j = 2 To Cells(1, Columns.Count).End(xlToLeft).Column

            Cells(i, j) = Cells(i, 1) * Cells(j, 1)

        Next j

        Next i

End Sub

 

この辺はまだ初級なので何も見ずに解くことができました( *´艸`)

資格勉強の成果ですね♪

 

この先はわからないけど

 

それでは今日はこの辺で

シーユーネクストタイム

タップしちゃダメだからね

最近関暁夫にハマってる!

かぐやです!

この前smsでこんなメッセージが届いたんだよね

や〜ばいでしょ

僕はNTTユーザーじゃないからね

自分の契約してるキャリアは

覚えてないとダメだよってこと

他にもこんなメッセージもあるよ

佐川急便はSMSは使わないからね

SMSで来たメッセージには気をつけてよ

聞いたことある会社だから安全とは限らないからね

青字はリンクが貼ってあるってことだよ

リンクっていうのはタップすると別のページに移動するってことだからね

タップしてからじゃ遅いってこと

SMSで青字の文章が来たら無視だからね

絶対タップしちゃダメだよ

安易にタップする人間と

怪しいと察知してタップしない人間。

人間選別はもう始まってるからね

しーゆーねくすとたいむってこと👋

MOS資格!

ポテト🍟はマックよりモス派!

かぐやです!

ポテト美味しいですよね〜

冷凍のポテトをマックスバリュで買って毎週1回は食べてます!

フライパンで炒めるだけで作れちゃうので簡単で便利で最高ですね(*゚∀゚*)

ポテトの話は置いといて

皆さんはMOSって知ってますか?

モスバーガーじゃないですよ😜

MOSというのはMicrosoft Office specialistという資格のことです!

Officeソフトが使えますよという客観的な証明が出来る資格です😏

残念ながらこの資格を持ってるから転職できる!というものではありません😱

なら取っても意味ないじゃん😱 と思うかも知れませんが最後の一押しをしてくれる資格ではあると思います。

もしも面接の評価が同じだった場合、

資格を持ってる人と持ってない人だったら、

最低限のスキルが保証されてる、資格を持ってる人の方がいいと思いませんか?

なので事務職に転職したい方は余裕があれば取っておくといいかなって思います!

おすすめの参考書はFOM出版が出している対策問題集です!

本番そっくりな5回分の模擬試験も付いているのが最高です!

資格を取った後も復習に使えるのが良いですね🤗

気になった方は是非チャレンジしてみて下さい╰(*´︶`*)╯♡

それではしーゆーねくすとたいむ✋

お仕事について

夜は21時には寝たい派!かぐやです!

2回目の投稿は仕事について書きます🤗

今の仕事はパソコンのインストラクターをやってます。

プログラミングではなく、Officeソフトをメインに教えているパソコン教室で働いてます。

授業内容を覚えたり、突発的にくる生徒さんの質問に答えなきゃいけなかったりでとにかく勉強しなきゃいけないことが沢山あります😱

元々頭が悪い自分にとってはかなり厳しい世界ではありますが、自分がやりたいと思った仕事だから毎日の勉強が継続出来てるのかな〜と思います。

昔から考えることが苦手で、最初にパソコンを使ったときは頭がパンクするんじゃないかってくらい情報量も覚えることも多くて、パソコンなんて大嫌い! もう泣いちゃうから😭って感じだったけど 毎日使っていくうちに何となくわかるようになってきて、パソコンてめちゃくちゃ便利だなって感動したんですよね(*゚∀゚*)

最初大嫌いだったからこそ、パソコンに苦手意識持ってる人の気持ちも分かるし、出来るようになるとすごい便利だよってことを色んな人に伝えたいと思って、そういう人が集まるのはどこだろうって考えた時にパソコン教室ってものに出会ったんですよね

これだ!って初めてやりたいことを見つけて、教えるために必要だと思ったMosマスターになって、ITパスポートをとって、基本情報をとって今の職に就いたからこそ続けられてます。(*´꒳`*)

辛いことや大変なことも沢山あるけど一人でも多くの人にパソコンを好きになってもらえるようまだまだ勉強頑張ります!

それでは!

しーゆーねくすとたいむ

ブログ始めました❗️

皆さんは趣味はありますか?

私にはこれが趣味です!と言えるものがありません😱

強いて言えばアニメや映画を観るくらい

なので趣味を作ろうということで、この度ブログを始めることにしました!

無料で出来る趣味で検索したらブログが引っかかったんですよね〜

思い立ったら即行動それが俺のポリシー👍

偉そうなこと言いましたが、とりあえずやっては飽き、やっては飽きての3日坊主なダメ人間です。

いや3日と言わず1時間坊主な時が大半かもしれません笑

なのでこのブログも2回目があるかは分かりません笑

なんせ続けていることといえばタイピング練習と仕事関係の勉強くらいです

ブログの内容については仕事のことやアニメ、映画の感想が多くなる予感

初投稿はこんな感じで

しーゆーねくすとたいむヽ(´ー`)