Private Sub btnCal1_Click() For rc = 8 To 12 cell_case = "I" & rc cell_result = "J" & rc cell1 = "C" & rc cell2 = "D" & rc cell1_x_cell2 = cell1 & "*" & cell2 cal_rule = Range(cell_case).Value Select Case cal_rule Case "切捨" Range(cell_re…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。