サイトロゴ
投稿者コメント
expand_more
Special Thanks TouHou Koakuma and ごま !!Thank you so much for all your support! They\'re very encouraging!!むしろ誰か作ってください!オナシャス!※※※本マクロご使用上の際のご注意※※※エクセル上でのマクロの使用は、お使いのPC環境によっては、動作機能を著しく低下させる恐れがあります。本マクロご使用の際の前中後は、お使いのPCが安定した状態にあることを強く推奨いたします。※※※※※※※※※※※※※※※※※※※※準備物・モデルビュー上選択頂点群の全情報を.CSV化https://ecchi.iwara.tv/images/モデルビュー上における、任意選択頂点の全情報をcsv化するプラグイン・今回使用したマクロPublic Sub WAKIGE_MABIKI_TAISYOUSENTAKU_UserInput()Dim y, x, s, RowsDltSftUpSTART, r, l, i As Longy = 2x = 2s = Application.InputBox(prompt:="毛モデル1本の底面の頂点数(角数)を数値のみで入力してください。", Type:=1, Default:=5) \', xpos:=1000, ypos:=2000If IsNumeric(s) = False Or s < 1 Then \'isnumeric(cells(yy,xx).value) = falseMsgBox "1 値以上を入力してください。マクロを中断します。"Exit SubEnd IfRowsDltSftUpSTART = yr = Application.InputBox(prompt:="毛モデル1本の曲がり箇所数を数値のみで入力してください。", Type:=1, Default:=20) \', xpos:=1000, ypos:=2000If IsNumeric(r) = False Or r < 1 Then \'isnumeric(cells(yy,xx).value) = falseMsgBox "1 値以上を入力してください。マクロを中断します。"Exit SubEnd Ifl = s * ri = 0Do While Len(Cells(RowsDltSftUpSTART (i * s * (r 1)), x)) <> 0Rows(RowsDltSftUpSTART (i * s * (r 1)) & ":" & RowsDltSftUpSTART (i * s * (r 1)) (s * (r 1) - 1)).SelectSelection.Delete Shift:=xlUpi = i 1LoopEnd Sub