[ad_1]
このコードをすぐに C# コードに変換する必要があります。 手伝ってくれますか?
私が試したこと:
Sub D() Dim SatirSayisi As Long Klasor = "D:" & "\" SatirSayisi = Cells.SpecialCells(xlLastCell).Row / 6 For n = 1 To Cells.SpecialCells(xlLastCell).Row Step SatirSayisi satirlar = Trim(Str(n)) & ":" & Trim(Str(n + SatirSayisi - 1)) Rows(satirlar).EntireRow.Copy Workbooks.Add ActiveSheet.Paste Dn = Dn + 1 Dosya = "Personel_" & Trim(Dn) ActiveWorkbook.SaveAs Filename:=Klasor & Dosya ActiveWorkbook.Close DoEvents Next MsgBox "İşlem Tamama" End Sub
解決策 3
見積もり:C++ から C# への変換
まず最初に: コードは C++ ではなく、vba です。
見積もり:このコードをすぐに C# コードに変換する必要があります。 手伝ってくれますか?
すぐにたくさんのお金が必要ですが、助けてもらえますか? 🙂
私たちは翻訳サービスではありません。
先生と話し合うか、プロのプログラマーを雇うことを考えるべきです。
解決策 1
誰もここでそれをしません。 試す 雇う開発者.
ところで: コードは Visual Basic です。これは非常に愛されていない言語です。
解決策 2
まず、これは C++ ではなく、VB であり、おそらく VB6 です。
第 2 に、DoEvents を明示的に呼び出すコードは、定義上ゴミコードです。
第三に、これはコード変換サービスではありません。コードを変換するためにここにいるわけではありません。
仮にそうしたとしても、最終的にターゲット言語の「良いコード」にはなりません。それらは非常に異なるフレームワークに基づいており、ある言語で何かを機能させるものが必ずしも別の言語に直接「翻訳」されるとは限りません。
そのため、最終的には非常に貧弱なコードになり、メンテナンスが不可能ではないにしても難しく、適切にアップグレードできず、元のコードが変更された場合に大きな頭痛の種になります。 そして、「箱から出してすぐに」動作しない場合、デバッグするのは悪夢です。
代わりに、ソース コードを新しいアプリの仕様として使用し、ターゲット言語/フレームワークの仕様として使用し、オリジナルを “テンプレート” として使用してゼロから記述します。 はるかに優れた結果が得られ、長期的には多くの時間を節約できます。
[ad_2]
コメント