বোতাম দ্বারা প্রয়োগ করা সঠিক বৈশিষ্ট্য নির্ধারণ করুন


0

আসুন আমি কমা বিন্যাসকরণের মতো এক্সেলের একটি বোতামে ক্লিক করি, নির্বাচনের ক্ষেত্রে সঠিক স্টাইলগুলি প্রয়োগ করে তা নির্ধারণ করার কোনও উপায় আছে কি?

আমি নিজে গাছটি ব্রাউজ করা এড়াতে চাইছি।

বিকল্প হিসাবে যদি আমি ফন্টের রঙকে লাল রূপে সেট করি তবে এটি সুস্পষ্ট হলেও এর আগে এবং তার পরেও এক্সেলের বৈশিষ্ট্যগুলির একটি স্ন্যাপ শট করার কোনও উপায় আছে?


আপনার প্রশ্নটি আরও বর্ণনামূলক করুন।
ষষ্ঠীংস

@ সিক্সথেন্স আরেকটি উদাহরণ যুক্ত করেছেন
উইলিয়াম

হ্যাঁ আপনি প্রিন্টস্ক্রিন ম্যানুয়ালি ব্যবহারের মাধ্যমে বা স্ন্যাপশট নিতে কোডের মাধ্যমে করতে পারেন।
ষষ্ঠসেন

@ সিক্সথেন্স কি কোড? সম্পত্তি তালিকার একটি স্ন্যাপশট নিতে দীর্ঘায়িত। আমি নিজে গাছটি ব্রাউজ করা এড়াতে চাইছি।
উইলিয়াম

স্ন্যাপশট এবং পেস্ট প্রক্রিয়া করতে কোড যুক্ত।
ষষ্ঠীংস

উত্তর:


1
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Private Sub AltPrintScreen()
    keybd_event VK_MENU, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub
Sub TakeSnapshot()
    Call AltPrintScreen
    SendKeys "^v"
End Sub

আমি দেখতে পাচ্ছি আপনি কেন বিভ্রান্ত হয়েছেন কারণ আমি স্ন্যাপশট শব্দটি ব্যবহার করেছি। তুমি আমার বাকী প্রশ্নটিকে অগ্রাহ্য করেছ আমি কেবলমাত্র বৈশিষ্ট্যগুলির একটি স্ন্যাপশটকে বুঝি যাতে আমি ২ টি তুলনা করতে পারি I আমি উত্তর খুঁজছি না।
উইলিয়াম

তবুও বুঝতে পারছি না আপনার আসল প্রয়োজনটি কী। আমি আশা করি আমার চেয়ে ভাল কেউ আপনাকে সাহায্য করতে পারে।
সিক্সথেন্স

আপনি কি এইচটিএমএল এবং জেএস জানেন? মূলত আপনার নীচের বোতামটি থাকলে <div onclick="document.getElmentById('i').style = 'color:green;background:orange;border:1px solid orange;'">test</div>এবং এটি টিপলে এটি # আই উপাদানটিতে শৈলীর প্রয়োগ করে। এখন ওয়ার্ড অনুরূপ কিছু করে কারণ আপনি এই জাতীয় বৈশিষ্ট্যগুলি দেখতে পারেন। আমি কী স্টাইলগুলি প্রয়োগ করে তা চিত্রিত করার চেষ্টা করছি।
উইলিয়াম

স্ক্রিনশট নেওয়ার জন্য এক্সেলে কোনও নিয়ন্ত্রণ সম্পত্তি বিদ্যমান নেই।
ষষ্ঠদর্শন

1

হ্যাঁ, আপনি যে বৈশিষ্ট্যগুলি দেখতে চান তার সাথে আপনাকে কেবল একটি ম্যাক্রো চালাতে হবে:

Sub TellMeAboutIt()
    Dim testRange
    Set testRange = Range("A1")

    Debug.Print testRange.Interior.Color
    Debug.Print testRange.Font.Size
    Debug.Print testRange.Font.Bold
    Debug.Print testRange.Font.Italic
    Debug.Print testRange.Row
    Debug.Print testRange.Column
    Debug.Print testRange.Style

End Sub

আপনি কিছু করার আগে এবং পরে এটি চালান। বা এটি একটি ইভেন্টের সাথে সংযুক্ত করুন। বা যাই হোক না কেন. রেঞ্জ অবজেক্টটি একবার দেখুন ।


for(i in x)ভিজ্যুয়াল বেসিকের জেসের সমতুল্য কিছু আছে কি ? আমার ধারণা আমি সমস্ত বৈশিষ্ট্য তালিকাভুক্ত করতে পারি তবে এটি অনেকটা কাজের মতো মনে হয়।
উইলিয়াম

আমি যতদূর জানি না, প্রতিটি সম্পত্তি কল করতে হবে, আমি মনে করি। এটি বৈশিষ্ট্য সহ একটি শ্রেণি যদি আপনি পারেন তবে অন্যথায় না। আপনি কোনও লুকানো শীটে সেলটি অনুলিপি করতে পারেন যাতে আপনার আগে থেকে সমস্ত ফর্ম্যাটিং থাকে।
রায়স্টাফেরিয়ান

সুতরাং এটি উপস্থিত হয় যদি আপনি কোনও ম্যাক্রো রেকর্ড করেন তবে কোনও ভিবিএ স্ক্রিপ্টে বৈশিষ্ট্যগুলি লিখলে appears সম্পত্তির তালিকাটি ম্যানুয়ালি ব্রাউজ করে সম্পত্তি পেতে কমপক্ষে একটি উপায় রয়েছে।
উইলিয়াম

আপনি যদি এটি সম্পাদন করে নিজেকে রেকর্ড করেন তবে এটি নতুন বৈশিষ্ট্য রেকর্ড করবে, তবে পুরানো নয়, যা আমি ভেবেছিলাম আপনি (উভয়) চেয়েছিলেন।
রায়স্টাফেরিয়ান

0

আচ্ছা আমি এতে অবাক হয়েছি তবে আপনি মূলত View-> Macros-> এর অধীনে ম্যাক্রোর রেকর্ডিং শুরু করতে পারেন Record Macros

এরপরে ম্যাক্রোটি মডিউলের অধীনে Alt + f11 এর নীচে ফেলে দেওয়া হয়। এখানে একটি উদাহরণ।

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B10").Select
End Sub
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.