見出し画像

321 (`□´)/ダーーーーー🔥問題 解答編【GAS🎨】

こんにちは!
パソコンインストラクター歴12年の
チサです。(*´∀`)

今日は昨日
出題した

321 (`□´)/ダーーーーー🔥問題
の解答編を書きますねーw

昨日のnoteはこちら👇


GAS🎨で
ループやIF文を使って
スプレッドシートに
こんな風に書き出す問題でした👇

みなさん
できたかな??
|ω•)チラッ

きっと人それぞれ
いろいろやり方があるだろうなぁ
(っ ॑꒳ ॑c)ゎ‹ゎ‹

ちなみに
わたしが書いたのは
こんなコード👇

function mondai_321(){

  const ws = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("シート1");
  let kakegoe = 3
  
  // 1~10までループする
  for (let i = 1; i <= 10; i++){
    //書き出し先のセルを変数で設定
    let rg=ws.getRange("A"+i)
  
    //kakegoeが1だった時にダー🔥
    if ((kakegoe)==1){
      rg.setValue(kakegoe + "  (`□´)/ダーーーーー🔥")
      //kakegoeを3に戻す
      kakegoe = 3
    }else{
    //そうでなかったたらkakegoeのみ表示
      rg.setValue(kakegoe)
      kakegoe=kakegoe-1
    } 
  }
}

掛け声を3から始めて
ループが回るごとに
1を引く

もし、掛け声が1だった場合は

(`□´)/ダーーーーー🔥

が出て、掛け声を3に戻す

そんなコードにしてみました
𐤔wʷ 🤣 𐤔w𐤔

みなさんのコードも
気になる!

おもしろいアイデアあったら
紹介してほしい💕

ついでに
VBAとPython🐍でも
書いてみました👇

ExcelVBA編================

こんな結果にする👇

🔥のマークが文字化けしちゃうので
🔥なしw

★解答例

Sub mondai_321()

    Dim kakegoe As Long
    Dim gyo As Long
    
    kakegoe = 3
    
    For gyo = 1 To 10
        
        If kakegoe = 1 Then
            Range("A" & gyo).Value = kakegoe & " (`□´)/ダーーーーー"
            kakegoe = 3
        Else
            Range("A" & gyo).Value = kakegoe
            kakegoe = kakegoe - 1
        End If
    Next

End Sub



Python編================

こんな結果を出力👇

★解答例

kakegoe = 3

for i in range(1, 11):
    if kakegoe == 1:
        print(str(kakegoe) + "  (`□´)/ダーーーーー🔥")
        kakegoe = 3
    else:
        print(kakegoe)
        kakegoe -= 1

わたしは
VBAが一番書きなれてるから
サクッと書けました。

Python🐍は

:(コロン)で書くところを
GAS🎨に引っ張られたのか⁉️

;(セミコロン)で書いちゃってて
エラーが出て怒られました🤣

いろんな言語が
ごちゃごちゃにならないよう
気をつけまーす🚨

ではでは
またあした!
(´꒳`)/

新刊出版しました👇
Wordショートカット力試しドリル

あなたはショートカットだけで
どこまでやれる?
|д゚)チラ
この📕で修行すれば
マウスのドラッグ操作から解放されますよ✨
ヾ(o´∀`o)ノワァーィ♪

➊パソコンに関する📕 4冊

➋Kindle出版に関する📕 2冊

➌節約に関する📕 1冊


➍読書に関する📕 1冊

➎海外の方向けの📕 3冊


気になる本があれば
試し読みだけでも♪
(´▽`)

この記事が気に入ったらサポートをしてみませんか?