[حل شده] ایجاد کد

[mobinsaffarpour]

باسلام خدمت اساتید و دوستان محترم
همانطور که در فایل پیوست مشاهده می کنید، 3 ستون با نام های Customer، Profile, Code وجود دارد.
Customer : یک نام تعریف می گردد و بعد از =customer در کد قرار میگیرد.
Profile : یک نام تعریف می گردد و بعد از =profile درون " " قرار میگیرد.

در خط اول کد ( tool user-manager user reset-counters ) در قسمت =customer اطلاعات Customer قرار می گیرد.
نکته : اگر در ستون Customer یک نام برای هر 5 ردیف Customer انتخاب شده بود فقط یک خط تولید می گردد، در غیر اینصورت به ازای هر Customer میبایست یک خط کد تعریف گردد.

tool user-manager user reset-counters [/tool user-manager user find customer=SarangSystem]

در خط های بعدی به تعداد Customer و Profile درج شده در A2 تا B6 میبایست کد تولید گردد. بدان معنا که برای A2 و B2 میبایست یک خط کد تولید گردد.

tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=SarangSystem profile=1Day-200MB-1H-1MB-User
tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=SarangSystem profile=1Day-1GB-8H-1MB-Personal

نکات :
1 - کد میبایست با استفاده از VBA پیاده سازی گردد و به هیچ عنوان از فرمول استفاده نشود.
1 - موارد قرمز رنگ متغییر هستند.
2 - در صورتیکه بعنوان مثال اگر سلول A2 تکمیل شده بود و B2 تکمیل نشده بود، میبایست سلول B2 قرمز گردد و در صورت تکمیل B2 رنگ سلول به سفید تغییر یابد. این قاعده برای هر 5 ردیف میبایست پیاده سازی گردد.


باتشکر از تمامی اساتید و دوستان محترم

[iranweld]

با سلام

کد تبدیل تکست ها رو بررسی کنید

Sub test()

xx = "/tool user-manager user reset-counters [/tool user-manager user find customer=" & _
Range("a2") & "]" & Chr(10) & _
"/tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=" & Range("a2") & "profile=" & _
"""" & Range("b2") & """" & Chr(10) & _
"/tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=" & Range("a3") & "profile=" & _
"""" & Range("b3") & """"


Range("c2") = xx

End Sub 

[Amir Ghasemiyan]

سلام دوست عزیز

از این کد استفاده کنید ببینید چیزی که میخواهید رو بهتون میده؟

Sub create_code()
Dim c As Range


code = ""
For Each c In Range("A2:A6")
    If Application.WorksheetFunction.CountIf(Range("A2:A" & c.Row()), c) = 1 Then
        code = code & "/tool user-manager user reset-counters [/tool user-manager user find customer=" & c.Value & "]" & Chr(10)
    End If
Next c
For Each c In Range("A2:A6")
    If c.Offset(0, 1).Value <> "" Then
        code = code & "/tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=" & c.Value & " profile=" & c.Offset(0, 1).Value & Chr(10)
    End If
Next c


Range("C2") = code
End Sub

[mobinsaffarpour]

سلام و درود به استاد حسن پور عزیز
خداقوت
یک دنیا ممنون از اینکه قبول زحمت کردید.
کد درست هست فقط این موارد توی کد پیاده سازی نشده

- کد فقط برای دو ردیف اول ایجاد میشه

- اگر در ستون Customer یک نام برای هر 5 ردیف Customer انتخاب شده بود فقط یک خط تولید می گردد، در غیر اینصورت به ازای هر Customer میبایست یک خط کد تعریف گردد.

tool user-manager user reset-counters [/tool user-manager user find customer=SarangSystem]

- در صورتیکه بعنوان مثال اگر سلول A2 تکمیل شده بود و B2 تکمیل نشده بود، میبایست سلول B2 قرمز گردد و در صورت تکمیل B2 رنگ سلول به سفید تغییر یابد. این قاعده برای هر 5 ردیف میبایست پیاده سازی گردد. در صورتی هم که B2 تکمیل شده بود و A2 تکمیل نشده بود قاعده تغییر رنگ اجرائی می باشد. ضمناً کد ایجاد نمی گردد.

tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=SarangSystem profile=1Day-200MB-1H-1MB-User

[mobinsaffarpour]

سلام دوست عزیز

از این کد استفاده کنید ببینید چیزی که میخواهید رو بهتون میده؟

Sub create_code()
Dim c As Range


code = ""
For Each c In Range("A2:A6")
    If Application.WorksheetFunction.CountIf(Range("A2:A" & c.Row()), c) = 1 Then
        code = code & "/tool user-manager user reset-counters [/tool user-manager user find customer=" & c.Value & "]" & Chr(10)
    End If
Next c
For Each c In Range("A2:A6")
    If c.Offset(0, 1).Value <> "" Then
        code = code & "/tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=" & c.Value & " profile=" & c.Offset(0, 1).Value & Chr(10)
    End If
Next c


Range("C2") = code
End Sub

سلام و درود به استاد قاسمیان عزیز
خدا خیرتون بده ان شا الله
یک دنیا ممنون از اینکه پیام بنده رو خوندید و قبول زحمت کردید.

در زمان اجرا، خطای زیر رو میده

Compile error

Expected variable or procedure, not module

[Amir Ghasemiyan]

سلام و درود به استاد قاسمیان عزیز
خدا خیرتون بده ان شا الله
یک دنیا ممنون از اینکه پیام بنده رو خوندید و قبول زحمت کردید.

در زمان اجرا، خطای زیر رو میده

Compile error

Expected variable or procedure, not module

خواهش میکنم
کدها رو کجا قرار دادین؟ چطور اجراش کردین؟ کدوم خط زرد رنگ میشه موقع خطا؟

[mobinsaffarpour]

خواهش میکنم
کدها رو کجا قرار دادین؟ چطور اجراش کردین؟ کدوم خط زرد رنگ میشه موقع خطا؟

کدها رو توی VBA قرار دادم توی یک Modules
یک دکمه توی صفحه اصلی هست و ماکرو create_code رو بهش اختصاص دادم
خط Sub create_code زرد میشه

[Amir Ghasemiyan]

کدها رو توی VBA قرار دادم توی یک Modules
یک دکمه توی صفحه اصلی هست و ماکرو create_code رو بهش اختصاص دادم
خط Sub create_code زرد میشه

من کدها رو تو فایل قرار دادم. بدون مشکل کار کرد. لطفا بررسی کنید
اگر باز هم کدها عمل نکرد از منوی صفحه ویژوال بیسیک گزینه tools گزینه options رو بزنید. در پنجره ای که باز میشه در تب editor تیک مربوط به گزينه required variable declaration رو بردارید

[mobinsaffarpour]

من کدها رو تو فایل قرار دادم. بدون مشکل کار کرد. لطفا بررسی کنید
اگر باز هم کدها عمل نکرد از منوی صفحه ویژوال بیسیک گزینه tools گزینه options رو بزنید. در پنجره ای که باز میشه در تب editor تیک مربوط به گزينه required variable declaration رو بردارید

یک دنیا ممنون استاد قاسمیان عزیز
الان درست شد
فوق العاده بود

فقط الان این شرط اجرا نشده

- در صورتیکه بعنوان مثال اگر سلول A2 تکمیل شده بود و B2 تکمیل نشده بود، میبایست سلول B2 قرمز گردد و در صورت تکمیل B2 رنگ سلول به سفید تغییر یابد. این قاعده برای هر 5 ردیف میبایست پیاده سازی گردد. در صورتی هم که B2 تکمیل شده بود و A2 تکمیل نشده بود قاعده تغییر رنگ اجرائی می باشد. ضمناً کد ایجاد نمی گردد.

tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=SarangSystem profile=1Day-200MB-1H-1MB-User

[Amir Ghasemiyan]

یک دنیا ممنون استاد قاسمیان عزیز
الان درست شد
فوق العاده بود

فقط الان این شرط اجرا نشده

- در صورتیکه بعنوان مثال اگر سلول A2 تکمیل شده بود و B2 تکمیل نشده بود، میبایست سلول B2 قرمز گردد و در صورت تکمیل B2 رنگ سلول به سفید تغییر یابد. این قاعده برای هر 5 ردیف میبایست پیاده سازی گردد. در صورتی هم که B2 تکمیل شده بود و A2 تکمیل نشده بود قاعده تغییر رنگ اجرائی می باشد. ضمناً کد ایجاد نمی گردد.

tool user-manager user create-and-activate-profile [/tool user-manager user find where !actual-profile] customer=SarangSystem profile=1Day-200MB-1H-1MB-User

تغییر رنگ رو که میشه با کاندیشنال فرمتینگ پیاده کرد. حتما باید با کدنویسی باشه؟

[mobinsaffarpour]

تغییر رنگ رو که میشه با کاندیشنال فرمتینگ پیاده کرد. حتما باید با کدنویسی باشه؟

به این دلیل هست که نمیخوام شرایط فایل رو کسی تغییر بده. ضمن اینکه این فایل قفل گذاری میشه.
اگر براتون مقدور هست البته

[Amir Ghasemiyan]

به این دلیل هست که نمیخوام شرایط فایل رو کسی تغییر بده. ضمن اینکه این فایل قفل گذاری میشه.
اگر براتون مقدور هست البته

لطفا این فایل رو بررسی کنید

[mobinsaffarpour]

لطفا این فایل رو بررسی کنید

یک دنیا ممنون
بسیار عالی
خیلی زحمتتون دادم
خدا خیرتون بده ان شا الله