第26回 Excel VBAã§ãƒãƒƒã‚·ãƒ¥ã‚’使ㆠ- bi_naã®æ—¥è¨˜CreateObject("Scripting.Dictionary") ã§ãƒãƒƒã‚·ãƒ¥ã‚’å–å¾—ã§ãる。代入時ã«ã¯SetãŒå¿…è¦ã€‚ SetãŒå¿…è¦ãªå ´é¢ã¯ã‚ªãƒ–ジェクト型ã®ä»£å…¥ã®ã‚ˆã†ã 。 Rubyã®ã‚ˆã†ã«å…¨éƒ¨ã‚ªãƒ–ジェクトã«ã—ã¨ã„ã¦ã»ã—ã„ãŒã€ãã†ã§ã‚‚ãªã„よã†ãªã®ã§ã€ 覚ãˆãŸã»ã†ãŒæ—©ãã†ã§ã‚る。 SetãŒå¿…è¦ãªã‚‚ã®ã¯ãƒ¯ãƒ¼ã‚¯ã‚·ãƒ¼ãƒˆã‚„Rangeã®ã‚ˆã†ã§ã‚る。 Rangeã®Valueãªã©ã¯ã€é…列ãŒè¿”ã£ã¦ãã‚‹ã®ã§ã“ã®å ´åˆã¯ã€Setã¯ä»˜ã‘ãªã„模様。 ãƒãƒƒã‚·ãƒ¥ã®ä½¿ç”¨ä¾‹ï¼š Sub ãƒãƒƒã‚·ãƒ¥ã®ä¾‹() Dim hash Set hash = CreateObject("Scripting.Dictionary") hash.Add "AA", 50 hash.Add "BB", 60 Debug.Print Join(Array(hash("AA"), hash("BB")), ",") Debug.Print Join(
Office TANAKA - Excel VBA Tips[çµåˆã‚»ãƒ«ã‚’調ã¹ã‚‹]
{{#tags}}- {{label}}
{{/tags}}