※ 広告を×ボタンで閉じて再生ボタンを押した後、リンク先で再生可能です。
※ スマホで動画が重い方は、リンク先の「ダウンロード」から「360p」を選択すると少し軽くなる可能性があります。
アルゴリズム共有 その９ ～ 毛編 ～ 乙改／五十鈴ちゃんのフルボ(嘘)実況・序／媛蹈鞴五十鈴媛命、虚空蔵アカーシャにて
-
calendar_month
2022-12-1907:55
-
remove_red_eye
4261回視聴
-
favorite
33いいね
add
お気に入り登録
作成者：
faceeiwarakpx
原作：
local_library
艦隊これくしょん-艦これ-
キャラ：
accessibility_new
五十鈴
タグ：
作者コメント：
Special Thanks TouHou Koakuma and ごま !!Thank you so much for all your support! They\'re very encouraging!!むしろ誰か作ってください！オナシャス！※※※本マクロご使用上の際のご注意※※※エクセル上でのマクロの使用は、お使いのPC環境によっては、動作機能を著しく低下させる恐れがあります。本マクロご使用の際の前中後は、お使いのPCが安定した状態にあることを強く推奨いたします。※※※※※※※※※※※※※※※※※※※※準備物・モデルビュー上選択頂点群の全情報を.CSV化/ Sub WAKIGE_MABIKI_TAISYOUSENTAKU_UserInput()Dim y, x, s, RowsDltSftUpSTART, r, l, i As Longy = 2x = 2s = Application.InputBox(prompt:="毛モデル１本の底面の頂点数(角数)を数値のみで入力してください。", 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:="毛モデル１本の曲がり箇所数を数値のみで入力してください。", 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