※ 広告を×ボタンで閉じて再生ボタンを押した後、リンク先で再生可能です。
※ スマホで動画が重い方は、リンク先の「ダウンロード」から「360p」を選択すると少し軽くなる可能性があります。
アルゴリズム共有 その４ ～ 互換系体型モデルから頂点モーフ移植編 ～
-
calendar_month
2021-04-1315:03
-
remove_red_eye
3142回視聴
-
favorite
30いいね
add
お気に入り登録
作成者：
faceeiwarakpx
原作：
キャラ：
タグ：
作者コメント：
おはようございます！※※※本マクロご使用上の際のご注意※※※エクセル上でのマクロの使用は、お使いのPC環境によっては、動作機能を著しく低下させる恐れがあります。本マクロご使用の際の前中後は、お使いのPCが安定した状態にあることを強く推奨いたします。※※※※※※※※※※※※※※※※※※※※！！！Tモデル側のモーフのCSVファイルの注意点！！！モーフのリストにある頂点のインデックスNoは昇順の並びになっていなければいけません。そうでない場合、エクセルを使って、No・位置XYZすべてセットで昇順並びにしてください。！！！！！！！！！！！！！！！！！！！！！！！！！準備物・「MMD 闇鍋プラグイン」・モデルビュー上選択頂点群の全情報を.CSV化/ Sub Blank_Cells_Row_Delete_Cells_4_8_4H_ByListLastRow()Dim y, x, i, ListLastRow As Longy = 4 \'対象数字行のナンバーx = 8 \'対象アルファベット列のナンバーi = 0\'最終行番号を取得ListLastRow = Cells(Rows.Count, 2).End(xlUp).RowFor j = 4 To ListLastRow Step 1DoEventsIf Cells(y i, x) = "" ThenRows(y i).Delete\'セル範囲の挿入・削除では、Shift:=は必要。指定してやらないと周囲セル状況で自動処理してしまう。\'行・列の挿入・削除では、Shift:=は不要。指定せずともシフト方向は決まり切っているため。xlup,xldownどちらも同じ処理となる。Elsei = i 1End IfNext jEnd Sub