how to create toggle button in excel
#toggleswitch
#excelvba
Sub TOGGSWI()
If Sheet1.Range("B12").Value = "SUPPLIER" Then
Sheet1.Shapes("IMEX").IncrementLeft -30 'NOTE: there must be a space between "IncrementLeft" and "30"
Sheet1.Range("B12").Value = "CUSTOMER"
Sheet1.Rows("6:25").Hidden = False
Sheet1.Rows("26:1048576").Hidden = True
Sheet1.Columns("Q:XFD").Hidden = True
Sheet1.Columns("A:B").Hidden = True
Else:
Sheet1.Shapes("IMEX").IncrementLeft 30 'NOTE: there must be a space between "IncrementLeft" and "-30"
Sheet1.Range("B12").Value = "SUPPLIER"
Sheet1.Rows("6:25").Hidden = True
Sheet1.Rows("26:45").Hidden = False
Sheet1.Rows("46:1048576").Hidden = True
Sheet1.Columns("A:B").Hidden = True
Sheet1.Columns("Q:XFD").Hidden = True
End If
End Sub
Смотрите видео How to create toggle button in excel онлайн без регистрации, длительностью часов минут секунд в хорошем качестве. Это видео добавил пользователь Shanonline 25 Июль 2022, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 42 раз и оно понравилось людям.