<?xml version="1.0" encoding="UTF-8"?><rss xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:atom="http://www.w3.org/2005/Atom" version="2.0"><channel><title><![CDATA[קריאה לUserForm דרך מאקרו באקסל]]></title><description><![CDATA[<p dir="auto">יש לי כמה UserForms, ולכל אחד יש שם אחר, השמות של הUserForm הוא כמו ערך של תא מסויימת, נניח שיש לי תאים אלו<br />
<img src="/assets/uploads/files/1645538820752-93de06a7-977d-46d7-ad8c-6ef73595f984-image.png" alt="93de06a7-977d-46d7-ad8c-6ef73595f984-image.png" class=" img-fluid img-markdown" /><br />
ויש לי UserForms בשמות אלו</p>
<ul>
<li>25065	UserForm</li>
<li>15849	UserForm</li>
<li>24486	UserForm</li>
<li>14168	UserForm</li>
</ul>
<p dir="auto">ואני רוצה שבעת לחיצה על התא יפתח לי הUserForm ששמו הוא כשם התא, השאלה איך אני מכניס משתנה לשם אובייקט בVBA<br />
(איך אני מפעיל את המאקרו בעת שאני עובר לתא - אני יודע, נתקעתי בהכנסת משתנה שנושא את ערך התא הפעיל לתוך האובייקט)<br />
זה אמור להיראות בערך כך</p>
<pre><code>i = ActiveCell.Value
Set x = UserForm &amp; i
</code></pre>
<p dir="auto">תודה לעוזרים.</p>
]]></description><link>https://tchumim.com/topic/12832/קריאה-לuserform-דרך-מאקרו-באקסל</link><generator>RSS for Node</generator><lastBuildDate>Wed, 22 Apr 2026 07:48:00 GMT</lastBuildDate><atom:link href="https://tchumim.com/topic/12832.rss" rel="self" type="application/rss+xml"/><pubDate>Tue, 22 Feb 2022 14:12:54 GMT</pubDate><ttl>60</ttl><item><title><![CDATA[Reply to קריאה לUserForm דרך מאקרו באקסל on Tue, 22 Feb 2022 17:12:35 GMT]]></title><description><![CDATA[<p dir="auto"><a class="plugin-mentions-user plugin-mentions-a" href="/user/%D7%97%D7%A0%D7%95%D7%9F-%D7%94%D7%9E%D7%A8%D7%91%D7%94">@<bdi>חנון-המרבה</bdi></a> ראשית עליך לאפשר גישה למודול האובייקטים של VBA במרכז יחסי האמון, כי כברירת מחדל הגישה חסומה מטעמי אבטחה.<br />
<em><strong>קובץ &gt; אפשרויות &gt; מרכז יחסי האמון &gt; הגדרות מרכז יחסי האמון &gt; תן אמון בגישה למודול האובייקטים של פרוייקט VBA</strong></em><br />
<img src="/assets/uploads/files/1645549648803-e5de3b96-d77b-4896-8257-7f833b275633-%D7%AA%D7%9E%D7%95%D7%A0%D7%94.png" alt="e5de3b96-d77b-4896-8257-7f833b275633-תמונה.png" class=" img-fluid img-markdown" /></p>
<p dir="auto">כעת תדביק במודול של חוברת העבודה את הקוד הבא:</p>
<pre><code>Public Sub OpenUserFormByName(UserFormName As String)
    VBA.UserForms.Add(UserFormName).Show
End Sub
</code></pre>
<p dir="auto">ותקרא לפונקציה כך (בהנחה שבדקת שגיאות בשם הטופס ותוכן התא):</p>
<pre><code>OpenUserFormByName "UserForm" &amp; CurrentCell.Value
</code></pre>
]]></description><link>https://tchumim.com/post/136431</link><guid isPermaLink="true">https://tchumim.com/post/136431</guid><dc:creator><![CDATA[OdedDvir]]></dc:creator><pubDate>Tue, 22 Feb 2022 17:12:35 GMT</pubDate></item></channel></rss>