2020-09-18から1日間の記事一覧
ちなみに、一人カタンで発展カードを引くやり方も、何通りか考えられるが、とりあえず作ったのがこんなかんじ。 Sub 発展カード() Dim h1, h2 h1 = Range("u1") h2 = Range("a42") * 3 + 31 Call Cells(h2, 20).Insert(xlShiftToRight) Cells(h2, 20).Value …
ちなみに、一人カタンで発展カードを引くやり方も、何通りか考えられるが、とりあえず作ったのがこんなかんじ。 Sub 発展カード() Dim h1, h2 h1 = Range("u1") h2 = Range("a42") * 3 + 31 Call Cells(h2, 20).Insert(xlShiftToRight) Cells(h2, 20).Value …