Formattazione textbox



  • Formattazione textbox
    di Geggio70 (utente non iscritto) data: 11/02/2016 14:40:51

    Salve a tutti, sto cercando di fare un programma in excel dove vengono riportati gli orari mensili di alcuni colleghi che sono agli sportelli per il pubblico, ho creatouna USERFORM con tante textbox quanti sono i giorni mensili per il numero degli sportelli (cica 600 textbox - 20 sportelli per 30 giorni mensili) ora il problema è quando vado a formattare le textbox in formato orario in quanto se eseguo per ogni textbox la stringa
    textbox1 = format(textbox, "hh:mm"), il tutto inserito in un pulsante denominato aggiorna, excel mi dice routine troppo grande. Esiste un modo per definire la formattazione di un numero di celle uguali del tipo : dalla textbox 1 alla textbox 100 formatta in formato orario? Spero di essere stato chiaro, purtroppo non posso postarvi il codice del pulsante perchè già enorme e comunque creato da un neofita.
    Grazie



  • di patel data: 11/02/2016 16:04:23

    il fatto che il codice sia fatto da un neofita non è importante, siamo qui per imparare ed aiutare, allega un file di esempio con una userform e 2 textbox col codice ridotto di conseguenza





  • di Geggio70 (utente non iscritto) data: 11/02/2016 16:34:31

    Ok, allego il codice che vorrei inserire nel pulsante denominato aggiorna e che mi da il problema di routine troppo grande; come vedi tutte quelle textbox hanno la stessa formattazione. In alternativa avevo pensato di spezzettare il codice e richiamarlo a fine con un call.
     
    TextBox24 = Format(TextBox24, "hh:mm")
    TextBox25 = Format(TextBox25, "hh:mm")
    TextBox26 = Format(TextBox26, "hh:mm")
    TextBox27 = Format(TextBox27, "hh:mm")
    TextBox28 = Format(TextBox28, "hh:mm")
    TextBox29 = Format(TextBox29, "hh:mm")
    TextBox30 = Format(TextBox30, "hh:mm")
    TextBox31 = Format(TextBox31, "hh:mm")
    TextBox32 = Format(TextBox32, "hh:mm")
    TextBox33 = Format(TextBox33, "hh:mm")
    TextBox34 = Format(TextBox34, "hh:mm")
    TextBox35 = Format(TextBox35, "hh:mm")
    TextBox36 = Format(TextBox36, "hh:mm")
    TextBox37 = Format(TextBox37, "hh:mm")
    TextBox38 = Format(TextBox38, "hh:mm")
    TextBox39 = Format(TextBox39, "hh:mm")
    TextBox40 = Format(TextBox40, "hh:mm")
    TextBox41 = Format(TextBox41, "hh:mm")
    TextBox42 = Format(TextBox42, "hh:mm")
    TextBox43 = Format(TextBox43, "hh:mm")
    TextBox44 = Format(TextBox44, "hh:mm")
    TextBox45 = Format(TextBox45, "hh:mm")
    TextBox48 = Format(TextBox48, "hh:mm")
    TextBox49 = Format(TextBox49, "hh:mm")
    TextBox50 = Format(TextBox50, "hh:mm")
    TextBox51 = Format(TextBox51, "hh:mm")
    TextBox52 = Format(TextBox52, "hh:mm")
    TextBox53 = Format(TextBox53, "hh:mm")
    TextBox54 = Format(TextBox54, "hh:mm")
    TextBox55 = Format(TextBox55, "hh:mm")
    TextBox56 = Format(TextBox56, "hh:mm")
    TextBox57 = Format(TextBox57, "hh:mm")
    TextBox58 = Format(TextBox58, "hh:mm")
    TextBox59 = Format(TextBox59, "hh:mm")
    TextBox60 = Format(TextBox60, "hh:mm")
    TextBox61 = Format(TextBox61, "hh:mm")
    TextBox62 = Format(TextBox62, "hh:mm")
    TextBox63 = Format(TextBox63, "hh:mm")
    TextBox64 = Format(TextBox64, "hh:mm")
    TextBox65 = Format(TextBox65, "hh:mm")
    TextBox66 = Format(TextBox66, "hh:mm")
    TextBox67 = Format(TextBox67, "hh:mm")
    TextBox68 = Format(TextBox68, "hh:mm")
    TextBox69 = Format(TextBox69, "hh:mm")
    TextBox71 = Format(TextBox71, "hh:mm")
    TextBox72 = Format(TextBox72, "hh:mm")
    TextBox73 = Format(TextBox73, "hh:mm")
    TextBox74 = Format(TextBox74, "hh:mm")
    TextBox75 = Format(TextBox75, "hh:mm")
    TextBox76 = Format(TextBox76, "hh:mm")
    TextBox77 = Format(TextBox77, "hh:mm")
    TextBox78 = Format(TextBox78, "hh:mm")
    TextBox79 = Format(TextBox79, "hh:mm")
    TextBox80 = Format(TextBox80, "hh:mm")
    TextBox81 = Format(TextBox81, "hh:mm")
    TextBox82 = Format(TextBox82, "hh:mm")
    TextBox83 = Format(TextBox83, "hh:mm")
    TextBox84 = Format(TextBox84, "hh:mm")
    TextBox85 = Format(TextBox85, "hh:mm")
    TextBox86 = Format(TextBox86, "hh:mm")
    TextBox87 = Format(TextBox87, "hh:mm")
    TextBox88 = Format(TextBox88, "hh:mm")
    TextBox89 = Format(TextBox89, "hh:mm")
    TextBox90 = Format(TextBox90, "hh:mm")
    TextBox91 = Format(TextBox91, "hh:mm")
    TextBox92 = Format(TextBox92, "hh:mm")
    TextBox94 = Format(TextBox94, "hh:mm")
    TextBox95 = Format(TextBox95, "hh:mm")
    TextBox96 = Format(TextBox96, "hh:mm")
    TextBox97 = Format(TextBox97, "hh:mm")
    TextBox98 = Format(TextBox98, "hh:mm")
    TextBox99 = Format(TextBox99, "hh:mm")
    TextBox100 = Format(TextBox100, "hh:mm")
    TextBox101 = Format(TextBox101, "hh:mm")
    TextBox102 = Format(TextBox102, "hh:mm")
    TextBox103 = Format(TextBox103, "hh:mm")
    TextBox104 = Format(TextBox104, "hh:mm")
    TextBox105 = Format(TextBox105, "hh:mm")
    TextBox106 = Format(TextBox106, "hh:mm")
    TextBox107 = Format(TextBox107, "hh:mm")
    TextBox108 = Format(TextBox108, "hh:mm")
    TextBox109 = Format(TextBox109, "hh:mm")
    TextBox110 = Format(TextBox110, "hh:mm")
    TextBox111 = Format(TextBox111, "hh:mm")
    TextBox112 = Format(TextBox112, "hh:mm")
    TextBox113 = Format(TextBox113, "hh:mm")
    TextBox114 = Format(TextBox114, "hh:mm")
    TextBox115 = Format(TextBox115, "hh:mm")
    TextBox117 = Format(TextBox117, "hh:mm")
    TextBox118 = Format(TextBox118, "hh:mm")
    TextBox119 = Format(TextBox119, "hh:mm")
    TextBox120 = Format(TextBox120, "hh:mm")
    TextBox121 = Format(TextBox121, "hh:mm")
    TextBox122 = Format(TextBox122, "hh:mm")
    TextBox123 = Format(TextBox123, "hh:mm")
    TextBox124 = Format(TextBox124, "hh:mm")
    TextBox125 = Format(TextBox125, "hh:mm")
    TextBox126 = Format(TextBox126, "hh:mm")
    TextBox127 = Format(TextBox127, "hh:mm")
    TextBox128 = Format(TextBox128, "hh:mm")
    TextBox129 = Format(TextBox129, "hh:mm")
    TextBox130 = Format(TextBox130, "hh:mm")
    TextBox131 = Format(TextBox131, "hh:mm")
    TextBox132 = Format(TextBox132, "hh:mm")
    TextBox133 = Format(TextBox133, "hh:mm")
    TextBox134 = Format(TextBox134, "hh:mm")
    TextBox135 = Format(TextBox135, "hh:mm")
    TextBox136 = Format(TextBox136, "hh:mm")
    TextBox137 = Format(TextBox137, "hh:mm")
    TextBox138 = Format(TextBox138, "hh:mm")
    TextBox140 = Format(TextBox140, "hh:mm")
    TextBox141 = Format(TextBox141, "hh:mm")
    TextBox142 = Format(TextBox142, "hh:mm")
    TextBox143 = Format(TextBox143, "hh:mm")
    TextBox144 = Format(TextBox144, "hh:mm")
    TextBox145 = Format(TextBox145, "hh:mm")
    TextBox146 = Format(TextBox146, "hh:mm")
    TextBox147 = Format(TextBox147, "hh:mm")
    TextBox148 = Format(TextBox148, "hh:mm")
    TextBox149 = Format(TextBox149, "hh:mm")
    TextBox150 = Format(TextBox150, "hh:mm")
    TextBox151 = Format(TextBox151, "hh:mm")
    TextBox152 = Format(TextBox152, "hh:mm")
    TextBox153 = Format(TextBox153, "hh:mm")
    TextBox154 = Format(TextBox154, "hh:mm")
    TextBox155 = Format(TextBox155, "hh:mm")
    TextBox156 = Format(TextBox156, "hh:mm")
    TextBox157 = Format(TextBox157, "hh:mm")
    TextBox158 = Format(TextBox158, "hh:mm")
    TextBox159 = Format(TextBox159, "hh:mm")
    TextBox160 = Format(TextBox160, "hh:mm")
    TextBox161 = Format(TextBox161, "hh:mm")
    TextBox163 = Format(TextBox163, "hh:mm")
    TextBox164 = Format(TextBox164, "hh:mm")
    TextBox165 = Format(TextBox165, "hh:mm")
    TextBox166 = Format(TextBox166, "hh:mm")
    TextBox167 = Format(TextBox167, "hh:mm")
    TextBox168 = Format(TextBox168, "hh:mm")
    TextBox169 = Format(TextBox169, "hh:mm")
    TextBox170 = Format(TextBox170, "hh:mm")
    TextBox171 = Format(TextBox171, "hh:mm")
    TextBox172 = Format(TextBox172, "hh:mm")
    TextBox173 = Format(TextBox173, "hh:mm")
    TextBox174 = Format(TextBox174, "hh:mm")
    TextBox175 = Format(TextBox175, "hh:mm")
    TextBox176 = Format(TextBox176, "hh:mm")
    TextBox177 = Format(TextBox177, "hh:mm")
    TextBox178 = Format(TextBox178, "hh:mm")
    TextBox179 = Format(TextBox179, "hh:mm")
    TextBox180 = Format(TextBox180, "hh:mm")
    TextBox181 = Format(TextBox181, "hh:mm")
    TextBox182 = Format(TextBox182, "hh:mm")
    TextBox183 = Format(TextBox183, "hh:mm")
    TextBox184 = Format(TextBox184, "hh:mm")
    TextBox186 = Format(TextBox186, "hh:mm")
    TextBox187 = Format(TextBox187, "hh:mm")
    TextBox188 = Format(TextBox188, "hh:mm")
    TextBox189 = Format(TextBox189, "hh:mm")
    TextBox190 = Format(TextBox190, "hh:mm")
    TextBox191 = Format(TextBox191, "hh:mm")
    TextBox192 = Format(TextBox192, "hh:mm")
    TextBox193 = Format(TextBox193, "hh:mm")
    TextBox194 = Format(TextBox194, "hh:mm")
    TextBox195 = Format(TextBox195, "hh:mm")
    TextBox196 = Format(TextBox196, "hh:mm")
    TextBox197 = Format(TextBox197, "hh:mm")
    TextBox198 = Format(TextBox198, "hh:mm")
    TextBox199 = Format(TextBox199, "hh:mm")
    TextBox200 = Format(TextBox200, "hh:mm")
    TextBox201 = Format(TextBox201, "hh:mm")
    TextBox202 = Format(TextBox202, "hh:mm")
    TextBox203 = Format(TextBox203, "hh:mm")
    TextBox204 = Format(TextBox204, "hh:mm")
    TextBox205 = Format(TextBox205, "hh:mm")
    TextBox206 = Format(TextBox206, "hh:mm")
    TextBox207 = Format(TextBox207, "hh:mm")
    TextBox209 = Format(TextBox209, "hh:mm")
    TextBox210 = Format(TextBox210, "hh:mm")
    TextBox211 = Format(TextBox211, "hh:mm")
    TextBox212 = Format(TextBox212, "hh:mm")
    TextBox213 = Format(TextBox213, "hh:mm")
    TextBox214 = Format(TextBox214, "hh:mm")
    TextBox215 = Format(TextBox215, "hh:mm")
    TextBox216 = Format(TextBox216, "hh:mm")
    TextBox217 = Format(TextBox217, "hh:mm")
    TextBox218 = Format(TextBox218, "hh:mm")
    TextBox219 = Format(TextBox219, "hh:mm")
    TextBox220 = Format(TextBox220, "hh:mm")
    TextBox221 = Format(TextBox221, "hh:mm")
    TextBox222 = Format(TextBox222, "hh:mm")
    TextBox223 = Format(TextBox223, "hh:mm")
    TextBox224 = Format(TextBox224, "hh:mm")
    TextBox225 = Format(TextBox225, "hh:mm")
    TextBox226 = Format(TextBox226, "hh:mm")
    TextBox227 = Format(TextBox227, "hh:mm")
    TextBox228 = Format(TextBox228, "hh:mm")
    TextBox229 = Format(TextBox229, "hh:mm")
    TextBox230 = Format(TextBox230, "hh:mm")
    TextBox232 = Format(TextBox232, "hh:mm")
    TextBox233 = Format(TextBox233, "hh:mm")
    TextBox234 = Format(TextBox234, "hh:mm")
    TextBox235 = Format(TextBox235, "hh:mm")
    TextBox236 = Format(TextBox236, "hh:mm")
    TextBox237 = Format(TextBox237, "hh:mm")
    TextBox238 = Format(TextBox238, "hh:mm")
    TextBox239 = Format(TextBox239, "hh:mm")
    TextBox240 = Format(TextBox240, "hh:mm")
    TextBox241 = Format(TextBox241, "hh:mm")
    TextBox242 = Format(TextBox242, "hh:mm")
    TextBox243 = Format(TextBox243, "hh:mm")
    TextBox244 = Format(TextBox244, "hh:mm")
    TextBox245 = Format(TextBox245, "hh:mm")
    TextBox246 = Format(TextBox246, "hh:mm")
    TextBox247 = Format(TextBox247, "hh:mm")
    TextBox248 = Format(TextBox248, "hh:mm")
    TextBox249 = Format(TextBox249, "hh:mm")
    TextBox250 = Format(TextBox250, "hh:mm")
    TextBox251 = Format(TextBox251, "hh:mm")
    TextBox252 = Format(TextBox252, "hh:mm")
    TextBox253 = Format(TextBox253, "hh:mm")
    TextBox255 = Format(TextBox255, "hh:mm")
    TextBox256 = Format(TextBox256, "hh:mm")
    TextBox257 = Format(TextBox257, "hh:mm")
    TextBox258 = Format(TextBox258, "hh:mm")
    TextBox259 = Format(TextBox259, "hh:mm")
    TextBox260 = Format(TextBox260, "hh:mm")
    TextBox261 = Format(TextBox261, "hh:mm")
    TextBox262 = Format(TextBox262, "hh:mm")
    TextBox263 = Format(TextBox263, "hh:mm")
    TextBox264 = Format(TextBox264, "hh:mm")
    TextBox265 = Format(TextBox265, "hh:mm")
    TextBox266 = Format(TextBox266, "hh:mm")
    TextBox267 = Format(TextBox267, "hh:mm")
    TextBox268 = Format(TextBox268, "hh:mm")
    TextBox269 = Format(TextBox269, "hh:mm")
    TextBox270 = Format(TextBox270, "hh:mm")
    TextBox271 = Format(TextBox271, "hh:mm")
    TextBox272 = Format(TextBox272, "hh:mm")
    TextBox273 = Format(TextBox273, "hh:mm")
    TextBox274 = Format(TextBox274, "hh:mm")
    TextBox275 = Format(TextBox275, "hh:mm")
    TextBox276 = Format(TextBox276, "hh:mm")
    TextBox278 = Format(TextBox278, "hh:mm")
    TextBox279 = Format(TextBox279, "hh:mm")
    TextBox280 = Format(TextBox280, "hh:mm")
    TextBox281 = Format(TextBox281, "hh:mm")
    TextBox282 = Format(TextBox282, "hh:mm")
    TextBox283 = Format(TextBox283, "hh:mm")
    TextBox284 = Format(TextBox284, "hh:mm")
    TextBox285 = Format(TextBox285, "hh:mm")
    TextBox286 = Format(TextBox286, "hh:mm")
    TextBox287 = Format(TextBox287, "hh:mm")
    TextBox288 = Format(TextBox288, "hh:mm")
    TextBox289 = Format(TextBox289, "hh:mm")
    TextBox290 = Format(TextBox290, "hh:mm")
    TextBox291 = Format(TextBox291, "hh:mm")
    TextBox292 = Format(TextBox292, "hh:mm")
    TextBox293 = Format(TextBox293, "hh:mm")
    TextBox294 = Format(TextBox294, "hh:mm")
    TextBox295 = Format(TextBox295, "hh:mm")
    TextBox296 = Format(TextBox296, "hh:mm")
    TextBox297 = Format(TextBox297, "hh:mm")
    TextBox298 = Format(TextBox298, "hh:mm")
    TextBox299 = Format(TextBox299, "hh:mm")
    TextBox301 = Format(TextBox301, "hh:mm")
    TextBox302 = Format(TextBox302, "hh:mm")
    TextBox303 = Format(TextBox303, "hh:mm")
    TextBox304 = Format(TextBox304, "hh:mm")
    TextBox305 = Format(TextBox305, "hh:mm")
    TextBox306 = Format(TextBox306, "hh:mm")
    TextBox307 = Format(TextBox307, "hh:mm")
    TextBox308 = Format(TextBox308, "hh:mm")
    TextBox309 = Format(TextBox309, "hh:mm")
    TextBox310 = Format(TextBox310, "hh:mm")
    TextBox311 = Format(TextBox311, "hh:mm")
    TextBox312 = Format(TextBox312, "hh:mm")
    TextBox313 = Format(TextBox313, "hh:mm")
    TextBox314 = Format(TextBox314, "hh:mm")
    TextBox315 = Format(TextBox315, "hh:mm")
    TextBox316 = Format(TextBox316, "hh:mm")
    TextBox317 = Format(TextBox317, "hh:mm")
    TextBox318 = Format(TextBox318, "hh:mm")
    TextBox319 = Format(TextBox319, "hh:mm")
    TextBox320 = Format(TextBox320, "hh:mm")
    TextBox321 = Format(TextBox321, "hh:mm")
    TextBox322 = Format(TextBox322, "hh:mm")
    TextBox324 = Format(TextBox324, "hh:mm")
    TextBox325 = Format(TextBox325, "hh:mm")
    TextBox326 = Format(TextBox326, "hh:mm")
    TextBox327 = Format(TextBox327, "hh:mm")
    TextBox328 = Format(TextBox328, "hh:mm")
    TextBox329 = Format(TextBox329, "hh:mm")
    TextBox330 = Format(TextBox330, "hh:mm")
    TextBox331 = Format(TextBox331, "hh:mm")
    TextBox332 = Format(TextBox332, "hh:mm")
    TextBox333 = Format(TextBox333, "hh:mm")
    TextBox334 = Format(TextBox334, "hh:mm")
    TextBox335 = Format(TextBox335, "hh:mm")
    TextBox336 = Format(TextBox336, "hh:mm")
    TextBox337 = Format(TextBox337, "hh:mm")
    TextBox338 = Format(TextBox338, "hh:mm")
    TextBox339 = Format(TextBox339, "hh:mm")
    TextBox340 = Format(TextBox340, "hh:mm")
    TextBox341 = Format(TextBox341, "hh:mm")
    TextBox342 = Format(TextBox342, "hh:mm")
    TextBox343 = Format(TextBox343, "hh:mm")
    TextBox344 = Format(TextBox344, "hh:mm")
    TextBox345 = Format(TextBox345, "hh:mm")
    TextBox347 = Format(TextBox347, "hh:mm")
    TextBox348 = Format(TextBox348, "hh:mm")
    TextBox349 = Format(TextBox349, "hh:mm")
    TextBox350 = Format(TextBox350, "hh:mm")
    TextBox351 = Format(TextBox351, "hh:mm")
    TextBox352 = Format(TextBox352, "hh:mm")
    TextBox353 = Format(TextBox353, "hh:mm")
    TextBox354 = Format(TextBox354, "hh:mm")
    TextBox355 = Format(TextBox355, "hh:mm")
    TextBox356 = Format(TextBox356, "hh:mm")
    TextBox357 = Format(TextBox357, "hh:mm")
    TextBox358 = Format(TextBox358, "hh:mm")
    TextBox359 = Format(TextBox359, "hh:mm")
    TextBox360 = Format(TextBox360, "hh:mm")
    TextBox361 = Format(TextBox361, "hh:mm")
    TextBox362 = Format(TextBox362, "hh:mm")
    TextBox363 = Format(TextBox363, "hh:mm")
    TextBox364 = Format(TextBox364, "hh:mm")
    TextBox365 = Format(TextBox365, "hh:mm")
    TextBox366 = Format(TextBox366, "hh:mm")
    TextBox367 = Format(TextBox367, "hh:mm")
    TextBox368 = Format(TextBox368, "hh:mm")
    TextBox369 = Format(TextBox369, "hh:mm")
    TextBox371 = Format(TextBox371, "hh:mm")
    TextBox372 = Format(TextBox372, "hh:mm")
    TextBox373 = Format(TextBox373, "hh:mm")
    TextBox374 = Format(TextBox374, "hh:mm")
    TextBox375 = Format(TextBox375, "hh:mm")
    TextBox376 = Format(TextBox376, "hh:mm")
    TextBox377 = Format(TextBox377, "hh:mm")
    TextBox378 = Format(TextBox378, "hh:mm")
    TextBox379 = Format(TextBox379, "hh:mm")
    TextBox380 = Format(TextBox380, "hh:mm")
    TextBox381 = Format(TextBox381, "hh:mm")
    TextBox382 = Format(TextBox382, "hh:mm")
    TextBox383 = Format(TextBox383, "hh:mm")
    TextBox384 = Format(TextBox384, "hh:mm")
    TextBox385 = Format(TextBox385, "hh:mm")
    TextBox386 = Format(TextBox386, "hh:mm")
    TextBox387 = Format(TextBox387, "hh:mm")
    TextBox388 = Format(TextBox388, "hh:mm")
    TextBox389 = Format(TextBox389, "hh:mm")
    TextBox390 = Format(TextBox390, "hh:mm")
    TextBox391 = Format(TextBox391, "hh:mm")
    TextBox393 = Format(TextBox393, "hh:mm")
    TextBox394 = Format(TextBox394, "hh:mm")
    TextBox395 = Format(TextBox395, "hh:mm")
    TextBox396 = Format(TextBox396, "hh:mm")
    TextBox397 = Format(TextBox397, "hh:mm")
    TextBox398 = Format(TextBox398, "hh:mm")
    TextBox399 = Format(TextBox399, "hh:mm")
    TextBox400 = Format(TextBox400, "hh:mm")
    TextBox401 = Format(TextBox401, "hh:mm")
    TextBox402 = Format(TextBox402, "hh:mm")
    TextBox403 = Format(TextBox403, "hh:mm")
    TextBox404 = Format(TextBox404, "hh:mm")
    TextBox405 = Format(TextBox405, "hh:mm")
    TextBox406 = Format(TextBox406, "hh:mm")
    TextBox407 = Format(TextBox407, "hh:mm")
    TextBox408 = Format(TextBox408, "hh:mm")
    TextBox409 = Format(TextBox409, "hh:mm")
    TextBox410 = Format(TextBox410, "hh:mm")
    TextBox411 = Format(TextBox411, "hh:mm")
    TextBox412 = Format(TextBox412, "hh:mm")
    TextBox413 = Format(TextBox413, "hh:mm")
    TextBox414 = Format(TextBox414, "hh:mm")
    TextBox416 = Format(TextBox416, "hh:mm")
    TextBox417 = Format(TextBox417, "hh:mm")
    TextBox418 = Format(TextBox418, "hh:mm")
    TextBox419 = Format(TextBox419, "hh:mm")
    TextBox420 = Format(TextBox420, "hh:mm")
    TextBox421 = Format(TextBox421, "hh:mm")
    TextBox422 = Format(TextBox422, "hh:mm")
    TextBox423 = Format(TextBox423, "hh:mm")
    TextBox424 = Format(TextBox424, "hh:mm")
    TextBox425 = Format(TextBox425, "hh:mm")
    TextBox426 = Format(TextBox426, "hh:mm")
    TextBox427 = Format(TextBox427, "hh:mm")
    TextBox428 = Format(TextBox428, "hh:mm")
    TextBox429 = Format(TextBox429, "hh:mm")
    TextBox430 = Format(TextBox430, "hh:mm")
    TextBox431 = Format(TextBox431, "hh:mm")
    TextBox432 = Format(TextBox432, "hh:mm")
    TextBox433 = Format(TextBox433, "hh:mm")
    TextBox434 = Format(TextBox434, "hh:mm")
    TextBox435 = Format(TextBox435, "hh:mm")
    TextBox436 = Format(TextBox436, "hh:mm")
    TextBox437 = Format(TextBox437, "hh:mm")
    TextBox439 = Format(TextBox439, "hh:mm")
    TextBox440 = Format(TextBox440, "hh:mm")
    TextBox441 = Format(TextBox441, "hh:mm")
    TextBox442 = Format(TextBox442, "hh:mm")
    TextBox443 = Format(TextBox443, "hh:mm")
    TextBox444 = Format(TextBox444, "hh:mm")
    TextBox445 = Format(TextBox445, "hh:mm")
    TextBox446 = Format(TextBox446, "hh:mm")
    TextBox447 = Format(TextBox447, "hh:mm")
    TextBox448 = Format(TextBox448, "hh:mm")
    TextBox449 = Format(TextBox449, "hh:mm")
    TextBox450 = Format(TextBox450, "hh:mm")
    TextBox451 = Format(TextBox451, "hh:mm")
    TextBox452 = Format(TextBox452, "hh:mm")
    TextBox453 = Format(TextBox453, "hh:mm")
    TextBox454 = Format(TextBox454, "hh:mm")
    TextBox455 = Format(TextBox455, "hh:mm")
    TextBox456 = Format(TextBox456, "hh:mm")
    TextBox457 = Format(TextBox457, "hh:mm")
    TextBox458 = Format(TextBox458, "hh:mm")
    TextBox459 = Format(TextBox459, "hh:mm")
    TextBox460 = Format(TextBox460, "hh:mm")
    TextBox462 = Format(TextBox462, "hh:mm")
    TextBox463 = Format(TextBox463, "hh:mm")
    TextBox464 = Format(TextBox464, "hh:mm")
    TextBox465 = Format(TextBox465, "hh:mm")
    TextBox466 = Format(TextBox466, "hh:mm")
    TextBox467 = Format(TextBox467, "hh:mm")
    TextBox468 = Format(TextBox468, "hh:mm")
    TextBox469 = Format(TextBox469, "hh:mm")
    TextBox470 = Format(TextBox470, "hh:mm")
    TextBox471 = Format(TextBox471, "hh:mm")
    TextBox472 = Format(TextBox472, "hh:mm")
    TextBox473 = Format(TextBox473, "hh:mm")
    TextBox474 = Format(TextBox474, "hh:mm")
    TextBox475 = Format(TextBox475, "hh:mm")
    TextBox476 = Format(TextBox476, "hh:mm")
    TextBox477 = Format(TextBox477, "hh:mm")
    TextBox478 = Format(TextBox478, "hh:mm")
    TextBox479 = Format(TextBox479, "hh:mm")
    TextBox480 = Format(TextBox480, "hh:mm")
    TextBox481 = Format(TextBox481, "hh:mm")
    TextBox482 = Format(TextBox482, "hh:mm")
    TextBox483 = Format(TextBox483, "hh:mm")
    TextBox485 = Format(TextBox485, "hh:mm")
    TextBox486 = Format(TextBox486, "hh:mm")
    TextBox487 = Format(TextBox487, "hh:mm")
    TextBox488 = Format(TextBox488, "hh:mm")
    TextBox489 = Format(TextBox489, "hh:mm")
    TextBox490 = Format(TextBox490, "hh:mm")
    TextBox491 = Format(TextBox491, "hh:mm")
    TextBox492 = Format(TextBox492, "hh:mm")
    TextBox493 = Format(TextBox493, "hh:mm")
    TextBox494 = Format(TextBox494, "hh:mm")
    TextBox495 = Format(TextBox495, "hh:mm")
    TextBox496 = Format(TextBox496, "hh:mm")
    TextBox497 = Format(TextBox497, "hh:mm")
    TextBox498 = Format(TextBox498, "hh:mm")
    TextBox499 = Format(TextBox499, "hh:mm")
    TextBox500 = Format(TextBox500, "hh:mm")
    TextBox501 = Format(TextBox501, "hh:mm")
    TextBox502 = Format(TextBox502, "hh:mm")
    TextBox503 = Format(TextBox503, "hh:mm")
    TextBox504 = Format(TextBox504, "hh:mm")
    TextBox505 = Format(TextBox505, "hh:mm")
    TextBox506 = Format(TextBox506, "hh:mm")
    TextBox508 = Format(TextBox508, "hh:mm")
    TextBox509 = Format(TextBox509, "hh:mm")
    TextBox510 = Format(TextBox510, "hh:mm")
    TextBox511 = Format(TextBox511, "hh:mm")
    TextBox512 = Format(TextBox512, "hh:mm")
    TextBox513 = Format(TextBox513, "hh:mm")
    TextBox514 = Format(TextBox514, "hh:mm")
    TextBox515 = Format(TextBox515, "hh:mm")
    TextBox516 = Format(TextBox516, "hh:mm")
    TextBox517 = Format(TextBox517, "hh:mm")
    TextBox518 = Format(TextBox518, "hh:mm")
    TextBox519 = Format(TextBox519, "hh:mm")
    TextBox520 = Format(TextBox520, "hh:mm")
    TextBox521 = Format(TextBox521, "hh:mm")
    TextBox522 = Format(TextBox522, "hh:mm")
    TextBox523 = Format(TextBox523, "hh:mm")
    TextBox524 = Format(TextBox524, "hh:mm")
    TextBox525 = Format(TextBox525, "hh:mm")
    TextBox526 = Format(TextBox526, "hh:mm")
    TextBox527 = Format(TextBox527, "hh:mm")
    TextBox528 = Format(TextBox528, "hh:mm")
    TextBox529 = Format(TextBox529, "hh:mm")
    TextBox531 = Format(TextBox531, "hh:mm")
    TextBox532 = Format(TextBox532, "hh:mm")
    TextBox533 = Format(TextBox533, "hh:mm")
    TextBox534 = Format(TextBox534, "hh:mm")
    TextBox535 = Format(TextBox535, "hh:mm")
    TextBox536 = Format(TextBox536, "hh:mm")
    TextBox537 = Format(TextBox537, "hh:mm")
    TextBox538 = Format(TextBox538, "hh:mm")
    TextBox539 = Format(TextBox539, "hh:mm")
    TextBox540 = Format(TextBox540, "hh:mm")
    TextBox541 = Format(TextBox541, "hh:mm")
    TextBox542 = Format(TextBox542, "hh:mm")
    TextBox543 = Format(TextBox543, "hh:mm")
    TextBox544 = Format(TextBox544, "hh:mm")
    TextBox545 = Format(TextBox545, "hh:mm")
    TextBox546 = Format(TextBox546, "hh:mm")
    TextBox547 = Format(TextBox547, "hh:mm")
    TextBox548 = Format(TextBox548, "hh:mm")
    TextBox549 = Format(TextBox549, "hh:mm")
    TextBox550 = Format(TextBox550, "hh:mm")
    TextBox551 = Format(TextBox551, "hh:mm")
    TextBox552 = Format(TextBox552, "hh:mm")
    TextBox554 = Format(TextBox554, "hh:mm")
    TextBox555 = Format(TextBox555, "hh:mm")
    TextBox556 = Format(TextBox556, "hh:mm")
    TextBox557 = Format(TextBox557, "hh:mm")
    TextBox558 = Format(TextBox558, "hh:mm")
    TextBox559 = Format(TextBox559, "hh:mm")
    TextBox560 = Format(TextBox560, "hh:mm")
    TextBox561 = Format(TextBox561, "hh:mm")
    TextBox562 = Format(TextBox562, "hh:mm")
    TextBox563 = Format(TextBox563, "hh:mm")
    TextBox564 = Format(TextBox564, "hh:mm")
    TextBox565 = Format(TextBox565, "hh:mm")
    TextBox566 = Format(TextBox566, "hh:mm")
    TextBox567 = Format(TextBox567, "hh:mm")
    TextBox568 = Format(TextBox568, "hh:mm")
    TextBox569 = Format(TextBox569, "hh:mm")
    TextBox570 = Format(TextBox570, "hh:mm")
    TextBox571 = Format(TextBox571, "hh:mm")
    TextBox572 = Format(TextBox572, "hh:mm")
    TextBox573 = Format(TextBox573, "hh:mm")
    TextBox574 = Format(TextBox574, "hh:mm")
    TextBox575 = Format(TextBox575, "hh:mm")
    TextBox577 = Format(TextBox577, "hh:mm")
    TextBox578 = Format(TextBox578, "hh:mm")
    TextBox579 = Format(TextBox579, "hh:mm")
    TextBox580 = Format(TextBox580, "hh:mm")
    TextBox581 = Format(TextBox581, "hh:mm")
    TextBox582 = Format(TextBox582, "hh:mm")
    TextBox583 = Format(TextBox583, "hh:mm")
    TextBox584 = Format(TextBox584, "hh:mm")
    TextBox585 = Format(TextBox585, "hh:mm")
    TextBox586 = Format(TextBox586, "hh:mm")
    TextBox587 = Format(TextBox587, "hh:mm")
    TextBox588 = Format(TextBox588, "hh:mm")
    TextBox589 = Format(TextBox589, "hh:mm")
    TextBox590 = Format(TextBox590, "hh:mm")
    TextBox591 = Format(TextBox591, "hh:mm")
    TextBox592 = Format(TextBox592, "hh:mm")
    TextBox593 = Format(TextBox593, "hh:mm")
    TextBox594 = Format(TextBox594, "hh:mm")
    TextBox595 = Format(TextBox595, "hh:mm")
    TextBox596 = Format(TextBox596, "hh:mm")
    TextBox597 = Format(TextBox597, "hh:mm")
    TextBox598 = Format(TextBox598, "hh:mm")
    TextBox599 = Format(TextBox599, "hh:mm")
    TextBox601 = Format(TextBox601, "hh:mm")
    TextBox602 = Format(TextBox602, "hh:mm")
    TextBox603 = Format(TextBox603, "hh:mm")
    TextBox604 = Format(TextBox604, "hh:mm")
    TextBox605 = Format(TextBox605, "hh:mm")
    TextBox606 = Format(TextBox606, "hh:mm")
    TextBox607 = Format(TextBox607, "hh:mm")
    TextBox608 = Format(TextBox608, "hh:mm")
    TextBox609 = Format(TextBox609, "hh:mm")
    TextBox610 = Format(TextBox610, "hh:mm")
    TextBox611 = Format(TextBox611, "hh:mm")
    TextBox612 = Format(TextBox612, "hh:mm")
    TextBox613 = Format(TextBox613, "hh:mm")
    TextBox614 = Format(TextBox614, "hh:mm")
    TextBox615 = Format(TextBox615, "hh:mm")
    TextBox616 = Format(TextBox616, "hh:mm")
    TextBox617 = Format(TextBox617, "hh:mm")
    TextBox618 = Format(TextBox618, "hh:mm")
    TextBox619 = Format(TextBox619, "hh:mm")
    TextBox620 = Format(TextBox620, "hh:mm")
    TextBox621 = Format(TextBox621, "hh:mm")
    TextBox623 = Format(TextBox623, "hh:mm")
    TextBox624 = Format(TextBox624, "hh:mm")
    TextBox625 = Format(TextBox625, "hh:mm")
    TextBox626 = Format(TextBox626, "hh:mm")
    TextBox627 = Format(TextBox627, "hh:mm")
    TextBox628 = Format(TextBox628, "hh:mm")
    TextBox629 = Format(TextBox629, "hh:mm")
    TextBox630 = Format(TextBox630, "hh:mm")
    TextBox631 = Format(TextBox631, "hh:mm")
    TextBox632 = Format(TextBox632, "hh:mm")
    TextBox633 = Format(TextBox633, "hh:mm")
    TextBox634 = Format(TextBox634, "hh:mm")
    TextBox635 = Format(TextBox635, "hh:mm")
    TextBox636 = Format(TextBox636, "hh:mm")
    TextBox637 = Format(TextBox637, "hh:mm")
    TextBox638 = Format(TextBox638, "hh:mm")
    TextBox640 = Format(TextBox640, "hh:mm")
    TextBox641 = Format(TextBox641, "hh:mm")
    TextBox642 = Format(TextBox642, "hh:mm")
    TextBox643 = Format(TextBox643, "hh:mm")
    TextBox644 = Format(TextBox644, "hh:mm")
    TextBox646 = Format(TextBox646, "hh:mm")
    TextBox647 = Format(TextBox647, "hh:mm")
    TextBox648 = Format(TextBox648, "hh:mm")
    TextBox649 = Format(TextBox649, "hh:mm")
    TextBox650 = Format(TextBox650, "hh:mm")
    TextBox651 = Format(TextBox651, "hh:mm")
    TextBox652 = Format(TextBox652, "hh:mm")
    TextBox653 = Format(TextBox653, "hh:mm")
    TextBox654 = Format(TextBox654, "hh:mm")
    TextBox655 = Format(TextBox655, "hh:mm")
    TextBox656 = Format(TextBox656, "hh:mm")
    TextBox657 = Format(TextBox657, "hh:mm")
    TextBox658 = Format(TextBox658, "hh:mm")
    TextBox659 = Format(TextBox659, "hh:mm")
    TextBox660 = Format(TextBox660, "hh:mm")
    TextBox661 = Format(TextBox661, "hh:mm")
    TextBox662 = Format(TextBox662, "hh:mm")
    TextBox663 = Format(TextBox663, "hh:mm")
    TextBox664 = Format(TextBox664, "hh:mm")
    TextBox665 = Format(TextBox665, "hh:mm")
    TextBox666 = Format(TextBox666, "hh:mm")
    TextBox667 = Format(TextBox667, "hh:mm")
    TextBox669 = Format(TextBox669, "hh:mm")
    TextBox670 = Format(TextBox670, "hh:mm")
    TextBox671 = Format(TextBox671, "hh:mm")
    TextBox672 = Format(TextBox672, "hh:mm")
    TextBox673 = Format(TextBox673, "hh:mm")
    TextBox674 = Format(TextBox674, "hh:mm")
    TextBox675 = Format(TextBox675, "hh:mm")
    TextBox676 = Format(TextBox676, "hh:mm")
    TextBox677 = Format(TextBox677, "hh:mm")
    TextBox678 = Format(TextBox678, "hh:mm")
    TextBox679 = Format(TextBox679, "hh:mm")
    TextBox680 = Format(TextBox680, "hh:mm")
    TextBox681 = Format(TextBox681, "hh:mm")
    TextBox682 = Format(TextBox682, "hh:mm")
    TextBox683 = Format(TextBox683, "hh:mm")
    TextBox684 = Format(TextBox684, "hh:mm")
    TextBox685 = Format(TextBox685, "hh:mm")
    TextBox686 = Format(TextBox686, "hh:mm")
    TextBox687 = Format(TextBox687, "hh:mm")
    TextBox688 = Format(TextBox688, "hh:mm")
    TextBox689 = Format(TextBox689, "hh:mm")
    TextBox690 = Format(TextBox690, "hh:mm")
    TextBox692 = Format(TextBox692, "hh:mm")
    TextBox693 = Format(TextBox693, "hh:mm")
    TextBox694 = Format(TextBox694, "hh:mm")
    TextBox695 = Format(TextBox695, "hh:mm")
    TextBox696 = Format(TextBox696, "hh:mm")
    TextBox697 = Format(TextBox697, "hh:mm")
    TextBox698 = Format(TextBox698, "hh:mm")
    TextBox699 = Format(TextBox699, "hh:mm")
    TextBox700 = Format(TextBox700, "hh:mm")
    TextBox701 = Format(TextBox701, "hh:mm")
    TextBox702 = Format(TextBox702, "hh:mm")
    TextBox703 = Format(TextBox703, "hh:mm")
    TextBox704 = Format(TextBox704, "hh:mm")
    TextBox705 = Format(TextBox705, "hh:mm")
    TextBox706 = Format(TextBox706, "hh:mm")
    TextBox707 = Format(TextBox707, "hh:mm")
    TextBox708 = Format(TextBox708, "hh:mm")
    TextBox709 = Format(TextBox709, "hh:mm")
    TextBox710 = Format(TextBox710, "hh:mm")
    TextBox711 = Format(TextBox711, "hh:mm")
    TextBox712 = Format(TextBox712, "hh:mm")
    TextBox713 = Format(TextBox713, "hh:mm")
    TextBox715 = Format(TextBox715, "hh:mm")
    TextBox716 = Format(TextBox716, "hh:mm")
    TextBox717 = Format(TextBox717, "hh:mm")
    TextBox718 = Format(TextBox718, "hh:mm")
    TextBox719 = Format(TextBox719, "hh:mm")
    TextBox720 = Format(TextBox720, "hh:mm")
    TextBox721 = Format(TextBox721, "hh:mm")
    TextBox722 = Format(TextBox722, "hh:mm")
    TextBox723 = Format(TextBox723, "hh:mm")
    TextBox724 = Format(TextBox724, "hh:mm")
    TextBox725 = Format(TextBox725, "hh:mm")
    TextBox727 = Format(TextBox727, "hh:mm")
    TextBox728 = Format(TextBox728, "hh:mm")
    TextBox729 = Format(TextBox729, "hh:mm")
    TextBox730 = Format(TextBox730, "hh:mm")
    TextBox731 = Format(TextBox731, "hh:mm")
    TextBox732 = Format(TextBox732, "hh:mm")
    TextBox733 = Format(TextBox733, "hh:mm")
    TextBox734 = Format(TextBox734, "hh:mm")
    TextBox735 = Format(TextBox735, "hh:mm")
    TextBox736 = Format(TextBox736, "hh:mm")
    TextBox738 = Format(TextBox738, "hh:mm")
    TextBox739 = Format(TextBox739, "hh:mm")
    TextBox740 = Format(TextBox740, "hh:mm")
    TextBox741 = Format(TextBox741, "hh:mm")
    TextBox742 = Format(TextBox742, "hh:mm")
    TextBox743 = Format(TextBox743, "hh:mm")
    TextBox744 = Format(TextBox744, "hh:mm")
    TextBox745 = Format(TextBox745, "hh:mm")
    TextBox746 = Format(TextBox746, "hh:mm")
    TextBox747 = Format(TextBox747, "hh:mm")
    TextBox748 = Format(TextBox748, "hh:mm")
    TextBox749 = Format(TextBox749, "hh:mm")
    TextBox750 = Format(TextBox750, "hh:mm")
    TextBox751 = Format(TextBox751, "hh:mm")
    TextBox752 = Format(TextBox752, "hh:mm")
    TextBox753 = Format(TextBox753, "hh:mm")
    TextBox754 = Format(TextBox754, "hh:mm")
    TextBox755 = Format(TextBox755, "hh:mm")
    TextBox756 = Format(TextBox756, "hh:mm")
    TextBox757 = Format(TextBox757, "hh:mm")
    TextBox758 = Format(TextBox758, "hh:mm")
    TextBox737 = Format(TextBox737, "hh:mm")



  • di Marius44 data: 11/02/2016 17:11:22

    Ho immaginato il seguente scenario:
    in A1 e in A2 hai due orari (celle formattate a Ora)
    nella UserForm1 hai due TextBox. TextBox1 e TextBox2
    Aggiungi nell'evento UserForm_Initialize la macro sotto indicata
    Vedrai che fa quello che chiedi.
    Ovviamente devi aggiustare il ciclo con il numero delle tue TextBox e puoi provare anche ad inserirlo in un pulsante.

    Fai sapere. Ciao,
    Mario
     
    Option Explicit
    Private Sub UserForm_Initialize()
    Dim i As Integer
        TextBox1 = Cells(1, 1)
        TextBox2 = Cells(2, 1)
        For i = 1 To 2
            Me.Controls("Textbox" & i) = Format(Me.Controls("TextBox" & i), "hh:mm")
        Next i
    End Sub