Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 | 2 |

 

  Вопрос: Динамическое заполнение процедуры Click Добавлено: 01.04.10 15:17  

Автор вопроса:  Dimoney | ICQ: 226787316 
Приветствую...

Подскажите, динамически создаю на листе N-е кол-во чек-боксов. При выборе каждый выполняет одно и то же действие. Можно ли (как) макросом прописать код в процедуру Check_Box(i).Click(), что-то типа Cells(i, 7).value = i ?

Ответить

  Ответы Всего ответов: 17  

Номер ответа: 1
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #1 		Добавлено: 01.04.10 15:54
Сколько чек боксов? И они называются CheckBox1, CheckBox2 и т.п. Так?

Ответить

Номер ответа: 2
Автор ответа:
 Dimoney



ICQ: 226787316 

Вопросов: 3
Ответов: 5
  Профиль | Цитата | #2 Добавлено: 01.04.10 18:07
Уес. А Вы с какой целью интересуетесь? (с) Хотя какая разница, сколько... много... В цикле создания хочу сразу передать текст в Click... реально?

Ответить

Номер ответа: 3
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #3 		Добавлено: 01.04.10 19:48
Вот код для 100 чекбоксов. Удалишь ненужные строки:
  1.  
  2. Private Sub CheckBox_Click(Index As Long)
  3. 'Index - íîìåð ÷åêáîêñà
  4. End Sub
  5. Private Sub CheckBox1_Click()
  6. Call CheckBox_Click(1)
  7. End Sub
  8. Private Sub CheckBox2_Click()
  9. Call CheckBox_Click(2)
  10. End Sub
  11. Private Sub CheckBox3_Click()
  12. Call CheckBox_Click(3)
  13. End Sub
  14. Private Sub CheckBox4_Click()
  15. Call CheckBox_Click(4)
  16. End Sub
  17. Private Sub CheckBox5_Click()
  18. Call CheckBox_Click(5)
  19. End Sub
  20. Private Sub CheckBox6_Click()
  21. Call CheckBox_Click(6)
  22. End Sub
  23. Private Sub CheckBox7_Click()
  24. Call CheckBox_Click(7)
  25. End Sub
  26. Private Sub CheckBox8_Click()
  27. Call CheckBox_Click(8)
  28. End Sub
  29. Private Sub CheckBox9_Click()
  30. Call CheckBox_Click(9)
  31. End Sub
  32. Private Sub CheckBox10_Click()
  33. Call CheckBox_Click(10)
  34. End Sub
  35. Private Sub CheckBox11_Click()
  36. Call CheckBox_Click(11)
  37. End Sub
  38. Private Sub CheckBox12_Click()
  39. Call CheckBox_Click(12)
  40. End Sub
  41. Private Sub CheckBox13_Click()
  42. Call CheckBox_Click(13)
  43. End Sub
  44. Private Sub CheckBox14_Click()
  45. Call CheckBox_Click(14)
  46. End Sub
  47. Private Sub CheckBox15_Click()
  48. Call CheckBox_Click(15)
  49. End Sub
  50. Private Sub CheckBox16_Click()
  51. Call CheckBox_Click(16)
  52. End Sub
  53. Private Sub CheckBox17_Click()
  54. Call CheckBox_Click(17)
  55. End Sub
  56. Private Sub CheckBox18_Click()
  57. Call CheckBox_Click(18)
  58. End Sub
  59. Private Sub CheckBox19_Click()
  60. Call CheckBox_Click(19)
  61. End Sub
  62. Private Sub CheckBox20_Click()
  63. Call CheckBox_Click(20)
  64. End Sub
  65. Private Sub CheckBox21_Click()
  66. Call CheckBox_Click(21)
  67. End Sub
  68. Private Sub CheckBox22_Click()
  69. Call CheckBox_Click(22)
  70. End Sub
  71. Private Sub CheckBox23_Click()
  72. Call CheckBox_Click(23)
  73. End Sub
  74. Private Sub CheckBox24_Click()
  75. Call CheckBox_Click(24)
  76. End Sub
  77. Private Sub CheckBox25_Click()
  78. Call CheckBox_Click(25)
  79. End Sub
  80. Private Sub CheckBox26_Click()
  81. Call CheckBox_Click(26)
  82. End Sub
  83. Private Sub CheckBox27_Click()
  84. Call CheckBox_Click(27)
  85. End Sub
  86. Private Sub CheckBox28_Click()
  87. Call CheckBox_Click(28)
  88. End Sub
  89. Private Sub CheckBox29_Click()
  90. Call CheckBox_Click(29)
  91. End Sub
  92. Private Sub CheckBox30_Click()
  93. Call CheckBox_Click(30)
  94. End Sub
  95. Private Sub CheckBox31_Click()
  96. Call CheckBox_Click(31)
  97. End Sub
  98. Private Sub CheckBox32_Click()
  99. Call CheckBox_Click(32)
  100. End Sub
  101. Private Sub CheckBox33_Click()
  102. Call CheckBox_Click(33)
  103. End Sub
  104. Private Sub CheckBox34_Click()
  105. Call CheckBox_Click(34)
  106. End Sub
  107. Private Sub CheckBox35_Click()
  108. Call CheckBox_Click(35)
  109. End Sub
  110. Private Sub CheckBox36_Click()
  111. Call CheckBox_Click(36)
  112. End Sub
  113. Private Sub CheckBox37_Click()
  114. Call CheckBox_Click(37)
  115. End Sub
  116. Private Sub CheckBox38_Click()
  117. Call CheckBox_Click(38)
  118. End Sub
  119. Private Sub CheckBox39_Click()
  120. Call CheckBox_Click(39)
  121. End Sub
  122. Private Sub CheckBox40_Click()
  123. Call CheckBox_Click(40)
  124. End Sub
  125. Private Sub CheckBox41_Click()
  126. Call CheckBox_Click(41)
  127. End Sub
  128. Private Sub CheckBox42_Click()
  129. Call CheckBox_Click(42)
  130. End Sub
  131. Private Sub CheckBox43_Click()
  132. Call CheckBox_Click(43)
  133. End Sub
  134. Private Sub CheckBox44_Click()
  135. Call CheckBox_Click(44)
  136. End Sub
  137. Private Sub CheckBox45_Click()
  138. Call CheckBox_Click(45)
  139. End Sub
  140. Private Sub CheckBox46_Click()
  141. Call CheckBox_Click(46)
  142. End Sub
  143. Private Sub CheckBox47_Click()
  144. Call CheckBox_Click(47)
  145. End Sub
  146. Private Sub CheckBox48_Click()
  147. Call CheckBox_Click(48)
  148. End Sub
  149. Private Sub CheckBox49_Click()
  150. Call CheckBox_Click(49)
  151. End Sub
  152. Private Sub CheckBox50_Click()
  153. Call CheckBox_Click(50)
  154. End Sub
  155. Private Sub CheckBox51_Click()
  156. Call CheckBox_Click(51)
  157. End Sub
  158. Private Sub CheckBox52_Click()
  159. Call CheckBox_Click(52)
  160. End Sub
  161. Private Sub CheckBox53_Click()
  162. Call CheckBox_Click(53)
  163. End Sub
  164. Private Sub CheckBox54_Click()
  165. Call CheckBox_Click(54)
  166. End Sub
  167. Private Sub CheckBox55_Click()
  168. Call CheckBox_Click(55)
  169. End Sub
  170. Private Sub CheckBox56_Click()
  171. Call CheckBox_Click(56)
  172. End Sub
  173. Private Sub CheckBox57_Click()
  174. Call CheckBox_Click(57)
  175. End Sub
  176. Private Sub CheckBox58_Click()
  177. Call CheckBox_Click(58)
  178. End Sub
  179. Private Sub CheckBox59_Click()
  180. Call CheckBox_Click(59)
  181. End Sub
  182. Private Sub CheckBox60_Click()
  183. Call CheckBox_Click(60)
  184. End Sub
  185. Private Sub CheckBox61_Click()
  186. Call CheckBox_Click(61)
  187. End Sub
  188. Private Sub CheckBox62_Click()
  189. Call CheckBox_Click(62)
  190. End Sub
  191. Private Sub CheckBox63_Click()
  192. Call CheckBox_Click(63)
  193. End Sub
  194. Private Sub CheckBox64_Click()
  195. Call CheckBox_Click(64)
  196. End Sub
  197. Private Sub CheckBox65_Click()
  198. Call CheckBox_Click(65)
  199. End Sub
  200. Private Sub CheckBox66_Click()
  201. Call CheckBox_Click(66)
  202. End Sub
  203. Private Sub CheckBox67_Click()
  204. Call CheckBox_Click(67)
  205. End Sub
  206. Private Sub CheckBox68_Click()
  207. Call CheckBox_Click(68)
  208. End Sub
  209. Private Sub CheckBox69_Click()
  210. Call CheckBox_Click(69)
  211. End Sub
  212. Private Sub CheckBox70_Click()
  213. Call CheckBox_Click(70)
  214. End Sub
  215. Private Sub CheckBox71_Click()
  216. Call CheckBox_Click(71)
  217. End Sub
  218. Private Sub CheckBox72_Click()
  219. Call CheckBox_Click(72)
  220. End Sub
  221. Private Sub CheckBox73_Click()
  222. Call CheckBox_Click(73)
  223. End Sub
  224. Private Sub CheckBox74_Click()
  225. Call CheckBox_Click(74)
  226. End Sub
  227. Private Sub CheckBox75_Click()
  228. Call CheckBox_Click(75)
  229. End Sub
  230. Private Sub CheckBox76_Click()
  231. Call CheckBox_Click(76)
  232. End Sub
  233. Private Sub CheckBox77_Click()
  234. Call CheckBox_Click(77)
  235. End Sub
  236. Private Sub CheckBox78_Click()
  237. Call CheckBox_Click(78)
  238. End Sub
  239. Private Sub CheckBox79_Click()
  240. Call CheckBox_Click(79)
  241. End Sub
  242. Private Sub CheckBox80_Click()
  243. Call CheckBox_Click(80)
  244. End Sub
  245. Private Sub CheckBox81_Click()
  246. Call CheckBox_Click(81)
  247. End Sub
  248. Private Sub CheckBox82_Click()
  249. Call CheckBox_Click(82)
  250. End Sub
  251. Private Sub CheckBox83_Click()
  252. Call CheckBox_Click(83)
  253. End Sub
  254. Private Sub CheckBox84_Click()
  255. Call CheckBox_Click(84)
  256. End Sub
  257. Private Sub CheckBox85_Click()
  258. Call CheckBox_Click(85)
  259. End Sub
  260. Private Sub CheckBox86_Click()
  261. Call CheckBox_Click(86)
  262. End Sub
  263. Private Sub CheckBox87_Click()
  264. Call CheckBox_Click(87)
  265. End Sub
  266. Private Sub CheckBox88_Click()
  267. Call CheckBox_Click(88)
  268. End Sub
  269. Private Sub CheckBox89_Click()
  270. Call CheckBox_Click(89)
  271. End Sub
  272. Private Sub CheckBox90_Click()
  273. Call CheckBox_Click(90)
  274. End Sub
  275. Private Sub CheckBox91_Click()
  276. Call CheckBox_Click(91)
  277. End Sub
  278. Private Sub CheckBox92_Click()
  279. Call CheckBox_Click(92)
  280. End Sub
  281. Private Sub CheckBox93_Click()
  282. Call CheckBox_Click(93)
  283. End Sub
  284. Private Sub CheckBox94_Click()
  285. Call CheckBox_Click(94)
  286. End Sub
  287. Private Sub CheckBox95_Click()
  288. Call CheckBox_Click(95)
  289. End Sub
  290. Private Sub CheckBox96_Click()
  291. Call CheckBox_Click(96)
  292. End Sub
  293. Private Sub CheckBox97_Click()
  294. Call CheckBox_Click(97)
  295. End Sub
  296. Private Sub CheckBox98_Click()
  297. Call CheckBox_Click(98)
  298. End Sub
  299. Private Sub CheckBox99_Click()
  300. Call CheckBox_Click(99)
  301. End Sub
  302. Private Sub CheckBox100_Click()
  303. Call CheckBox_Click(100)
  304. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #4 		Добавлено: 01.04.10 19:49
При щелчке будет вызываться CheckBox_Click, Index - это номер нажатого чекбокса. Смекаешь?

Ответить

Номер ответа: 5
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #5 		Добавлено: 01.04.10 20:00
Вот улучшенный вариант: можно обращаться к свойствам чекбоксов. Для этого есть массив MyCheckBox(номер):
  1. Private Sub CheckBox_Click(sender As CheckBox, Index As Long)
  2. 'Index - íîìåð ÷åêáîêñà
  3. End Sub
  4. Private Sub CheckBox1_Click()
  5. Call CheckBox_Click(CheckBox1, 1)
  6. End Sub
  7. Private Sub CheckBox2_Click()
  8. Call CheckBox_Click(CheckBox2, 2)
  9. End Sub
  10. Private Sub CheckBox3_Click()
  11. Call CheckBox_Click(CheckBox3, 3)
  12. End Sub
  13. Private Sub CheckBox4_Click()
  14. Call CheckBox_Click(CheckBox4, 4)
  15. End Sub
  16. Private Sub CheckBox5_Click()
  17. Call CheckBox_Click(CheckBox5, 5)
  18. End Sub
  19. Private Sub CheckBox6_Click()
  20. Call CheckBox_Click(CheckBox6, 6)
  21. End Sub
  22. Private Sub CheckBox7_Click()
  23. Call CheckBox_Click(CheckBox7, 7)
  24. End Sub
  25. Private Sub CheckBox8_Click()
  26. Call CheckBox_Click(CheckBox8, 8)
  27. End Sub
  28. Private Sub CheckBox9_Click()
  29. Call CheckBox_Click(CheckBox9, 9)
  30. End Sub
  31. Private Sub CheckBox10_Click()
  32. Call CheckBox_Click(CheckBox10, 10)
  33. End Sub
  34. Private Sub CheckBox11_Click()
  35. Call CheckBox_Click(CheckBox11, 11)
  36. End Sub
  37. Private Sub CheckBox12_Click()
  38. Call CheckBox_Click(CheckBox12, 12)
  39. End Sub
  40. Private Sub CheckBox13_Click()
  41. Call CheckBox_Click(CheckBox13, 13)
  42. End Sub
  43. Private Sub CheckBox14_Click()
  44. Call CheckBox_Click(CheckBox14, 14)
  45. End Sub
  46. Private Sub CheckBox15_Click()
  47. Call CheckBox_Click(CheckBox15, 15)
  48. End Sub
  49. Private Sub CheckBox16_Click()
  50. Call CheckBox_Click(CheckBox16, 16)
  51. End Sub
  52. Private Sub CheckBox17_Click()
  53. Call CheckBox_Click(CheckBox17, 17)
  54. End Sub
  55. Private Sub CheckBox18_Click()
  56. Call CheckBox_Click(CheckBox18, 18)
  57. End Sub
  58. Private Sub CheckBox19_Click()
  59. Call CheckBox_Click(CheckBox19, 19)
  60. End Sub
  61. Private Sub CheckBox20_Click()
  62. Call CheckBox_Click(CheckBox20, 20)
  63. End Sub
  64. Private Sub CheckBox21_Click()
  65. Call CheckBox_Click(CheckBox21, 21)
  66. End Sub
  67. Private Sub CheckBox22_Click()
  68. Call CheckBox_Click(CheckBox22, 22)
  69. End Sub
  70. Private Sub CheckBox23_Click()
  71. Call CheckBox_Click(CheckBox23, 23)
  72. End Sub
  73. Private Sub CheckBox24_Click()
  74. Call CheckBox_Click(CheckBox24, 24)
  75. End Sub
  76. Private Sub CheckBox25_Click()
  77. Call CheckBox_Click(CheckBox25, 25)
  78. End Sub
  79. Private Sub CheckBox26_Click()
  80. Call CheckBox_Click(CheckBox26, 26)
  81. End Sub
  82. Private Sub CheckBox27_Click()
  83. Call CheckBox_Click(CheckBox27, 27)
  84. End Sub
  85. Private Sub CheckBox28_Click()
  86. Call CheckBox_Click(CheckBox28, 28)
  87. End Sub
  88. Private Sub CheckBox29_Click()
  89. Call CheckBox_Click(CheckBox29, 29)
  90. End Sub
  91. Private Sub CheckBox30_Click()
  92. Call CheckBox_Click(CheckBox30, 30)
  93. End Sub
  94. Private Sub CheckBox31_Click()
  95. Call CheckBox_Click(CheckBox31, 31)
  96. End Sub
  97. Private Sub CheckBox32_Click()
  98. Call CheckBox_Click(CheckBox32, 32)
  99. End Sub
  100. Private Sub CheckBox33_Click()
  101. Call CheckBox_Click(CheckBox33, 33)
  102. End Sub
  103. Private Sub CheckBox34_Click()
  104. Call CheckBox_Click(CheckBox34, 34)
  105. End Sub
  106. Private Sub CheckBox35_Click()
  107. Call CheckBox_Click(CheckBox35, 35)
  108. End Sub
  109. Private Sub CheckBox36_Click()
  110. Call CheckBox_Click(CheckBox36, 36)
  111. End Sub
  112. Private Sub CheckBox37_Click()
  113. Call CheckBox_Click(CheckBox37, 37)
  114. End Sub
  115. Private Sub CheckBox38_Click()
  116. Call CheckBox_Click(CheckBox38, 38)
  117. End Sub
  118. Private Sub CheckBox39_Click()
  119. Call CheckBox_Click(CheckBox39, 39)
  120. End Sub
  121. Private Sub CheckBox40_Click()
  122. Call CheckBox_Click(CheckBox40, 40)
  123. End Sub
  124. Private Sub CheckBox41_Click()
  125. Call CheckBox_Click(CheckBox41, 41)
  126. End Sub
  127. Private Sub CheckBox42_Click()
  128. Call CheckBox_Click(CheckBox42, 42)
  129. End Sub
  130. Private Sub CheckBox43_Click()
  131. Call CheckBox_Click(CheckBox43, 43)
  132. End Sub
  133. Private Sub CheckBox44_Click()
  134. Call CheckBox_Click(CheckBox44, 44)
  135. End Sub
  136. Private Sub CheckBox45_Click()
  137. Call CheckBox_Click(CheckBox45, 45)
  138. End Sub
  139. Private Sub CheckBox46_Click()
  140. Call CheckBox_Click(CheckBox46, 46)
  141. End Sub
  142. Private Sub CheckBox47_Click()
  143. Call CheckBox_Click(CheckBox47, 47)
  144. End Sub
  145. Private Sub CheckBox48_Click()
  146. Call CheckBox_Click(CheckBox48, 48)
  147. End Sub
  148. Private Sub CheckBox49_Click()
  149. Call CheckBox_Click(CheckBox49, 49)
  150. End Sub
  151. Private Sub CheckBox50_Click()
  152. Call CheckBox_Click(CheckBox50, 50)
  153. End Sub
  154. Private Sub CheckBox51_Click()
  155. Call CheckBox_Click(CheckBox51, 51)
  156. End Sub
  157. Private Sub CheckBox52_Click()
  158. Call CheckBox_Click(CheckBox52, 52)
  159. End Sub
  160. Private Sub CheckBox53_Click()
  161. Call CheckBox_Click(CheckBox53, 53)
  162. End Sub
  163. Private Sub CheckBox54_Click()
  164. Call CheckBox_Click(CheckBox54, 54)
  165. End Sub
  166. Private Sub CheckBox55_Click()
  167. Call CheckBox_Click(CheckBox55, 55)
  168. End Sub
  169. Private Sub CheckBox56_Click()
  170. Call CheckBox_Click(CheckBox56, 56)
  171. End Sub
  172. Private Sub CheckBox57_Click()
  173. Call CheckBox_Click(CheckBox57, 57)
  174. End Sub
  175. Private Sub CheckBox58_Click()
  176. Call CheckBox_Click(CheckBox58, 58)
  177. End Sub
  178. Private Sub CheckBox59_Click()
  179. Call CheckBox_Click(CheckBox59, 59)
  180. End Sub
  181. Private Sub CheckBox60_Click()
  182. Call CheckBox_Click(CheckBox60, 60)
  183. End Sub
  184. Private Sub CheckBox61_Click()
  185. Call CheckBox_Click(CheckBox61, 61)
  186. End Sub
  187. Private Sub CheckBox62_Click()
  188. Call CheckBox_Click(CheckBox62, 62)
  189. End Sub
  190. Private Sub CheckBox63_Click()
  191. Call CheckBox_Click(CheckBox63, 63)
  192. End Sub
  193. Private Sub CheckBox64_Click()
  194. Call CheckBox_Click(CheckBox64, 64)
  195. End Sub
  196. Private Sub CheckBox65_Click()
  197. Call CheckBox_Click(CheckBox65, 65)
  198. End Sub
  199. Private Sub CheckBox66_Click()
  200. Call CheckBox_Click(CheckBox66, 66)
  201. End Sub
  202. Private Sub CheckBox67_Click()
  203. Call CheckBox_Click(CheckBox67, 67)
  204. End Sub
  205. Private Sub CheckBox68_Click()
  206. Call CheckBox_Click(CheckBox68, 68)
  207. End Sub
  208. Private Sub CheckBox69_Click()
  209. Call CheckBox_Click(CheckBox69, 69)
  210. End Sub
  211. Private Sub CheckBox70_Click()
  212. Call CheckBox_Click(CheckBox70, 70)
  213. End Sub
  214. Private Sub CheckBox71_Click()
  215. Call CheckBox_Click(CheckBox71, 71)
  216. End Sub
  217. Private Sub CheckBox72_Click()
  218. Call CheckBox_Click(CheckBox72, 72)
  219. End Sub
  220. Private Sub CheckBox73_Click()
  221. Call CheckBox_Click(CheckBox73, 73)
  222. End Sub
  223. Private Sub CheckBox74_Click()
  224. Call CheckBox_Click(CheckBox74, 74)
  225. End Sub
  226. Private Sub CheckBox75_Click()
  227. Call CheckBox_Click(CheckBox75, 75)
  228. End Sub
  229. Private Sub CheckBox76_Click()
  230. Call CheckBox_Click(CheckBox76, 76)
  231. End Sub
  232. Private Sub CheckBox77_Click()
  233. Call CheckBox_Click(CheckBox77, 77)
  234. End Sub
  235. Private Sub CheckBox78_Click()
  236. Call CheckBox_Click(CheckBox78, 78)
  237. End Sub
  238. Private Sub CheckBox79_Click()
  239. Call CheckBox_Click(CheckBox79, 79)
  240. End Sub
  241. Private Sub CheckBox80_Click()
  242. Call CheckBox_Click(CheckBox80, 80)
  243. End Sub
  244. Private Sub CheckBox81_Click()
  245. Call CheckBox_Click(CheckBox81, 81)
  246. End Sub
  247. Private Sub CheckBox82_Click()
  248. Call CheckBox_Click(CheckBox82, 82)
  249. End Sub
  250. Private Sub CheckBox83_Click()
  251. Call CheckBox_Click(CheckBox83, 83)
  252. End Sub
  253. Private Sub CheckBox84_Click()
  254. Call CheckBox_Click(CheckBox84, 84)
  255. End Sub
  256. Private Sub CheckBox85_Click()
  257. Call CheckBox_Click(CheckBox85, 85)
  258. End Sub
  259. Private Sub CheckBox86_Click()
  260. Call CheckBox_Click(CheckBox86, 86)
  261. End Sub
  262. Private Sub CheckBox87_Click()
  263. Call CheckBox_Click(CheckBox87, 87)
  264. End Sub
  265. Private Sub CheckBox88_Click()
  266. Call CheckBox_Click(CheckBox88, 88)
  267. End Sub
  268. Private Sub CheckBox89_Click()
  269. Call CheckBox_Click(CheckBox89, 89)
  270. End Sub
  271. Private Sub CheckBox90_Click()
  272. Call CheckBox_Click(CheckBox90, 90)
  273. End Sub
  274. Private Sub CheckBox91_Click()
  275. Call CheckBox_Click(CheckBox91, 91)
  276. End Sub
  277. Private Sub CheckBox92_Click()
  278. Call CheckBox_Click(CheckBox92, 92)
  279. End Sub
  280. Private Sub CheckBox93_Click()
  281. Call CheckBox_Click(CheckBox93, 93)
  282. End Sub
  283. Private Sub CheckBox94_Click()
  284. Call CheckBox_Click(CheckBox94, 94)
  285. End Sub
  286. Private Sub CheckBox95_Click()
  287. Call CheckBox_Click(CheckBox95, 95)
  288. End Sub
  289. Private Sub CheckBox96_Click()
  290. Call CheckBox_Click(CheckBox96, 96)
  291. End Sub
  292. Private Sub CheckBox97_Click()
  293. Call CheckBox_Click(CheckBox97, 97)
  294. End Sub
  295. Private Sub CheckBox98_Click()
  296. Call CheckBox_Click(CheckBox98, 98)
  297. End Sub
  298. Private Sub CheckBox99_Click()
  299. Call CheckBox_Click(CheckBox99, 99)
  300. End Sub
  301. Private Sub CheckBox100_Click()
  302. Call CheckBox_Click(CheckBox100, 100)
  303. End Sub
  304. Public Property Get MyCheckBox(index as Long) As CheckBox
  305. If index = 1 Then MyCheckBox = CheckBox1: Exit Sub
  306. If index = 2 Then MyCheckBox = CheckBox2: Exit Sub
  307. If index = 3 Then MyCheckBox = CheckBox3: Exit Sub
  308. If index = 4 Then MyCheckBox = CheckBox4: Exit Sub
  309. If index = 5 Then MyCheckBox = CheckBox5: Exit Sub
  310. If index = 6 Then MyCheckBox = CheckBox6: Exit Sub
  311. If index = 7 Then MyCheckBox = CheckBox7: Exit Sub
  312. If index = 8 Then MyCheckBox = CheckBox8: Exit Sub
  313. If index = 9 Then MyCheckBox = CheckBox9: Exit Sub
  314. If index = 10 Then MyCheckBox = CheckBox10: Exit Sub
  315. If index = 11 Then MyCheckBox = CheckBox11: Exit Sub
  316. If index = 12 Then MyCheckBox = CheckBox12: Exit Sub
  317. If index = 13 Then MyCheckBox = CheckBox13: Exit Sub
  318. If index = 14 Then MyCheckBox = CheckBox14: Exit Sub
  319. If index = 15 Then MyCheckBox = CheckBox15: Exit Sub
  320. If index = 16 Then MyCheckBox = CheckBox16: Exit Sub
  321. If index = 17 Then MyCheckBox = CheckBox17: Exit Sub
  322. If index = 18 Then MyCheckBox = CheckBox18: Exit Sub
  323. If index = 19 Then MyCheckBox = CheckBox19: Exit Sub
  324. If index = 20 Then MyCheckBox = CheckBox20: Exit Sub
  325. If index = 21 Then MyCheckBox = CheckBox21: Exit Sub
  326. If index = 22 Then MyCheckBox = CheckBox22: Exit Sub
  327. If index = 23 Then MyCheckBox = CheckBox23: Exit Sub
  328. If index = 24 Then MyCheckBox = CheckBox24: Exit Sub
  329. If index = 25 Then MyCheckBox = CheckBox25: Exit Sub
  330. If index = 26 Then MyCheckBox = CheckBox26: Exit Sub
  331. If index = 27 Then MyCheckBox = CheckBox27: Exit Sub
  332. If index = 28 Then MyCheckBox = CheckBox28: Exit Sub
  333. If index = 29 Then MyCheckBox = CheckBox29: Exit Sub
  334. If index = 30 Then MyCheckBox = CheckBox30: Exit Sub
  335. If index = 31 Then MyCheckBox = CheckBox31: Exit Sub
  336. If index = 32 Then MyCheckBox = CheckBox32: Exit Sub
  337. If index = 33 Then MyCheckBox = CheckBox33: Exit Sub
  338. If index = 34 Then MyCheckBox = CheckBox34: Exit Sub
  339. If index = 35 Then MyCheckBox = CheckBox35: Exit Sub
  340. If index = 36 Then MyCheckBox = CheckBox36: Exit Sub
  341. If index = 37 Then MyCheckBox = CheckBox37: Exit Sub
  342. If index = 38 Then MyCheckBox = CheckBox38: Exit Sub
  343. If index = 39 Then MyCheckBox = CheckBox39: Exit Sub
  344. If index = 40 Then MyCheckBox = CheckBox40: Exit Sub
  345. If index = 41 Then MyCheckBox = CheckBox41: Exit Sub
  346. If index = 42 Then MyCheckBox = CheckBox42: Exit Sub
  347. If index = 43 Then MyCheckBox = CheckBox43: Exit Sub
  348. If index = 44 Then MyCheckBox = CheckBox44: Exit Sub
  349. If index = 45 Then MyCheckBox = CheckBox45: Exit Sub
  350. If index = 46 Then MyCheckBox = CheckBox46: Exit Sub
  351. If index = 47 Then MyCheckBox = CheckBox47: Exit Sub
  352. If index = 48 Then MyCheckBox = CheckBox48: Exit Sub
  353. If index = 49 Then MyCheckBox = CheckBox49: Exit Sub
  354. If index = 50 Then MyCheckBox = CheckBox50: Exit Sub
  355. If index = 51 Then MyCheckBox = CheckBox51: Exit Sub
  356. If index = 52 Then MyCheckBox = CheckBox52: Exit Sub
  357. If index = 53 Then MyCheckBox = CheckBox53: Exit Sub
  358. If index = 54 Then MyCheckBox = CheckBox54: Exit Sub
  359. If index = 55 Then MyCheckBox = CheckBox55: Exit Sub
  360. If index = 56 Then MyCheckBox = CheckBox56: Exit Sub
  361. If index = 57 Then MyCheckBox = CheckBox57: Exit Sub
  362. If index = 58 Then MyCheckBox = CheckBox58: Exit Sub
  363. If index = 59 Then MyCheckBox = CheckBox59: Exit Sub
  364. If index = 60 Then MyCheckBox = CheckBox60: Exit Sub
  365. If index = 61 Then MyCheckBox = CheckBox61: Exit Sub
  366. If index = 62 Then MyCheckBox = CheckBox62: Exit Sub
  367. If index = 63 Then MyCheckBox = CheckBox63: Exit Sub
  368. If index = 64 Then MyCheckBox = CheckBox64: Exit Sub
  369. If index = 65 Then MyCheckBox = CheckBox65: Exit Sub
  370. If index = 66 Then MyCheckBox = CheckBox66: Exit Sub
  371. If index = 67 Then MyCheckBox = CheckBox67: Exit Sub
  372. If index = 68 Then MyCheckBox = CheckBox68: Exit Sub
  373. If index = 69 Then MyCheckBox = CheckBox69: Exit Sub
  374. If index = 70 Then MyCheckBox = CheckBox70: Exit Sub
  375. If index = 71 Then MyCheckBox = CheckBox71: Exit Sub
  376. If index = 72 Then MyCheckBox = CheckBox72: Exit Sub
  377. If index = 73 Then MyCheckBox = CheckBox73: Exit Sub
  378. If index = 74 Then MyCheckBox = CheckBox74: Exit Sub
  379. If index = 75 Then MyCheckBox = CheckBox75: Exit Sub
  380. If index = 76 Then MyCheckBox = CheckBox76: Exit Sub
  381. If index = 77 Then MyCheckBox = CheckBox77: Exit Sub
  382. If index = 78 Then MyCheckBox = CheckBox78: Exit Sub
  383. If index = 79 Then MyCheckBox = CheckBox79: Exit Sub
  384. If index = 80 Then MyCheckBox = CheckBox80: Exit Sub
  385. If index = 81 Then MyCheckBox = CheckBox81: Exit Sub
  386. If index = 82 Then MyCheckBox = CheckBox82: Exit Sub
  387. If index = 83 Then MyCheckBox = CheckBox83: Exit Sub
  388. If index = 84 Then MyCheckBox = CheckBox84: Exit Sub
  389. If index = 85 Then MyCheckBox = CheckBox85: Exit Sub
  390. If index = 86 Then MyCheckBox = CheckBox86: Exit Sub
  391. If index = 87 Then MyCheckBox = CheckBox87: Exit Sub
  392. If index = 88 Then MyCheckBox = CheckBox88: Exit Sub
  393. If index = 89 Then MyCheckBox = CheckBox89: Exit Sub
  394. If index = 90 Then MyCheckBox = CheckBox90: Exit Sub
  395. If index = 91 Then MyCheckBox = CheckBox91: Exit Sub
  396. If index = 92 Then MyCheckBox = CheckBox92: Exit Sub
  397. If index = 93 Then MyCheckBox = CheckBox93: Exit Sub
  398. If index = 94 Then MyCheckBox = CheckBox94: Exit Sub
  399. If index = 95 Then MyCheckBox = CheckBox95: Exit Sub
  400. If index = 96 Then MyCheckBox = CheckBox96: Exit Sub
  401. If index = 97 Then MyCheckBox = CheckBox97: Exit Sub
  402. If index = 98 Then MyCheckBox = CheckBox98: Exit Sub
  403. If index = 99 Then MyCheckBox = CheckBox99: Exit Sub
  404. If index = 100 Then MyCheckBox = CheckBox100: Exit Sub
  405. End Property
  406. Public Property Set MyCheckBox(Index As Long, Check As CheckBox)
  407. End Property

Ответить

Номер ответа: 6
Автор ответа:
 Dimoney



ICQ: 226787316 

Вопросов: 3
Ответов: 5
  Профиль | Цитата | #6 Добавлено: 02.04.10 09:08
Я, наверное, плохо объяснил... Мне надо при создании чекбокса прописать код в процедуру Click, чтобы после отработки макроса код уже был в процедуре Click любого чекбокса. Есть что-то типа такого?
  1. Cck_box_name.Click.Text = "Cells(i, 10).value = "1" "

Ответить

Номер ответа: 7
Автор ответа:
 GDK



Вопросов: 13
Ответов: 348
  Профиль | Цитата | #7 Добавлено: 02.04.10 11:01
Макрос должен создать чекбокс, и добавить к проекту процедуру обработки события клик. Т.е. надо не прописать код в процедуру Click, а добавить саму процедуру
  1. Private Sub CheckBoxN_Click()
  2. ...
  3. End Sub

Это можно, только не помню как. Посмотри в сторону объекта VBE кажется.
ЗЫ Если все чекбоксы должны выполнять одно и то же, то проще написать для них одну единственную процедуру и события клик будут её вызывать.

Ответить

Номер ответа: 8
Автор ответа:
 Dimoney



ICQ: 226787316 

Вопросов: 3
Ответов: 5
  Профиль | Цитата | #8 Добавлено: 02.04.10 11:13
К этому и стремлюсь :) Как сделать, чтобы, посмотрев процедуру динамиxески созданного чекбокса, увидеть там строку "Call my_proc"?

Ответить

Номер ответа: 9
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #9 		Добавлено: 02.04.10 14:33
Ну тогда гугли Microsoft ScriptControl

Ответить

Номер ответа: 10
Автор ответа:
 GDK



Вопросов: 13
Ответов: 348
  Профиль | Цитата | #10 Добавлено: 05.04.10 10:26
Ну тогда гугли Microsoft ScriptControl
Зачем???

Макрос должен создать чекбокс, и добавить к проекту процедуру обработки события клик. Т.е. надо не прописать код в процедуру Click, а добавить саму процедуру
  1. Private Sub CheckBoxN_Click()
  2. ...
  3. End Sub


Это можно, только не помню как. Посмотри в сторону объекта VBE кажется.


Хотя может быть можно и редактировать код существующих процедур и даже построчно.

Ответить

Номер ответа: 11
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | Цитата | #11 		Добавлено: 05.04.10 14:44
Эм... А массив чекбоксов никак?

Ответить

Номер ответа: 12
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #12 		Добавлено: 05.04.10 15:09
VBA

Ответить

Номер ответа: 13
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | Цитата | #13 		Добавлено: 05.04.10 15:09
Эй, с возвращением! :)

Ответить

Номер ответа: 14
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | Цитата | #14 Добавлено: 05.04.10 15:37
+1

Ответить

Номер ответа: 15
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | Цитата | #15 Добавлено: 05.04.10 15:40
Весна! Палач вернулсо из тёплого края :)

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам