Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Elenco a discesa scelta prefissi telefonici internazionali con bandierina nazionale

Ultimo Aggiornamento: 22/02/2021 10:43
Post: 25
Registrato il: 22/04/2017
Città: UDINE
Età: 58
Utente Junior
Excel 2016
OFFLINE
18/02/2021 21:59

Elenco a discesa Prefissi telefonici internazionali con bandierina
Vorrei sapere se esiste una qualche soluzione (VBA o non) per far comparire in Excel un elenco a discesa con i prefissi internazionali e relativa bandierina del paese da cui selezionare quello desiderato e far comparire nella cella ad es. per l'Italia: Bandierina Tricolore 🇮🇹 +39

Di seguito una foto con un esempio di come potrebbe essere l'elenco a discesa.

Grazie fin d'ora per l'aiuto.

Luca

Post: 6.266
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
19/02/2021 08:15

Ciao non credo che nell'elenco a discesa si potrebbe vedere la bandierina, ma in fase di scritture sul foglio si può fare.

ma occorre il file con l'elenco delle bandierine e dei prefissi.

Ciao By Sal (8-D

se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Post: 3.094
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
19/02/2021 17:39

Ciao
puoi farlo con una listView abbinata all'oggetto ImageList.

Ma è impegnativo dal punto di vista programmatico.

Quanto ne sai di programmazione??

saluti




Domenico
Win 10 - Excel 2016
Post: 891
Registrato il: 24/06/2015
Città: CATANIA
Età: 80
Utente Senior
Excel2019
OFFLINE
21/02/2021 12:12

Salve a tutti
Si può fare cercando di "fregare" Excel 😁🤣😄

Una ComboBox abbastanza grande in larghezza, una Image ed una TextBox entrambe (poste in primo piano) dentro la ComboBox.
Quindi un elenco dei paesi e dei prefissi telefonici (magari nel Foglio2) e una cartella a parte con le bandiere.

Il file Excel (con quanto detto sopra) e la cartella con i file delle bandiere DEVONO stare nella stessa cartella.

Questa la macro che "sincronizza" il tutto
Option Explicit

Private Sub ComboBox1_Change()
Dim perc As String, rg As Long
If ComboBox1.Text = "" Then Exit Sub
perc = ActiveWorkbook.Path & "\Bandiere\" & ComboBox1.Value & ".jpg"
On Error GoTo fine
ActiveSheet.Image1.Picture = LoadPicture(perc)
rg = Application.WorksheetFunction.Match(ComboBox1.Text, Sheets("Foglio2").Range("A2:A236"), 0) + 1
ActiveSheet.Label1.Caption = Sheets("Foglio2").Cells(rg, 2)
Cells(1, 1).Select
Exit Sub
fine:
  ActiveSheet.Image1.Picture = Nothing
  MsgBox "Bandiera non presente"
End Sub


Se lo ritenete opportuno (ma non credo sia necessario) mi adopererò per allegare la mia prova (con poche bandiere).
Ciao,
Mario
[Modificato da Marius44 21/02/2021 12:13]
Post: 3.101
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
21/02/2021 16:38

cioa Mario
l'idea è buona anche se la bandiera viene mostrata dopo la scelta.

Piccola nota:
nella tua descrizione parli di textBox, ma le istruzioni fanno riferimento ad una label:

ActiveSheet.Label1.Caption = Sheets("Foglio2").Cells(rg, 2)
quindi o si interisce una Label oppure si modifica:
ActiveSheet.TextBox1 = Sheets("Foglio2").Cells(rg, 2)

Infine, non è necessario dare dimensioni grandi alla Combo per farci entrare l'immagine; nei parametri dell'oggetto immagine, basta variare:
PictureSizeMode a: fmPictureSizeModeStretch

saluti




[Modificato da dodo47 21/02/2021 16:42]
Domenico
Win 10 - Excel 2016
Post: 892
Registrato il: 24/06/2015
Città: CATANIA
Età: 80
Utente Senior
Excel2019
OFFLINE
21/02/2021 20:06

Ciao Domenico
"Occhio di lince ha colpito ancora" 😀

Hai ragione per quanto attiene la TextBox! E' una Label.
Invece per la bandiera non ho impostato a: fmPictureSizeModeStretch perchè mi "sformava" l'immagine.

Ciao,
Mario
Post: 25
Registrato il: 22/04/2017
Città: UDINE
Età: 58
Utente Junior
Excel 2016
OFFLINE
22/02/2021 09:32

In primis ringrazio tutti per la collaborazione e la competenza e prontezza che sempre dimostrate nel rispondere ai quesiti di noi quasi profani.

Chiedo comunque cortesemente a Marius44 se può postare qui il suo file di prova così vedo esattamente come l'ha costruito e lo replico sul mio.

Grazie ancora e un saluto,

Luca
Post: 893
Registrato il: 24/06/2015
Città: CATANIA
Età: 80
Utente Senior
Excel2019
OFFLINE
22/02/2021 10:43

Ciao
Eccoti il link
https://www.dropbox.com/sh/au3ciat03zc214h/AAAHXQXyfJnehbPTC2tP1kesa?dl=0

Ovviamente le nazioni ci sono quasi tutte, per le bandiere neho recuperato solo un po'

Ciao,
Mario
[Modificato da Marius44 22/02/2021 10:44]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 10:21. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com