formatting - How can I format an hhmmAM/PM OR hmmAM/PM (no space) to time hh:mm AM/PM in excel? -


i'm working on way make enter timesheets payroll. want time entered in format hhmmam/pm, no spaces or colons , preferable typing a/p instead of am/pm , have convert standard time format colons , spaces.

i searched community , found answer gets me of way there. issue code requires use of "0" when entering hours example "0545p" converts "5:45 pm" "545p" converts "54:5 pm"

i want able enter 0545p or 545p , still 5:45 pm

here code using:

private sub worksheet_change(byval target range) if intersect(target, range("a:a")) nothing exit sub application.enableevents = false     s = target.text     if right(s, 1) = "a" or right(s, 1) = "a"         s2 = " am"     else         s2 = " pm"     end if     target.value = left(s, 2) & ":" & mid(s, 3, 2) & s2 application.enableevents = true

end sub

source question: how can format hhmmam/pm (no space) time hh:mm am/pm in excel?

thank time.

here answer... hope help... 

private sub worksheet_change(byval target range) if intersect(target, range("a:a")) nothing exit sub  'remarks: 'if want use column code change 'range("a:a") desire column 'if want imput column g 'range("g:g") , new resulting line of code 'if intersect(target, range("g:g")) nothing exit sub  application.enableevents = false     s = target.text     if right(s, 1) = "a" or right(s, 1) = "a"         s2 = " am"     else         s2 = " pm"     end if     if left(s, 2) = "11" or left(s, 2) = "12" or left(s, 2) = "10"         target.value = left(s, 2) & ":" & mid(s, 3, 2) & s2     end if     if left(s, 1) = "0"         target.value = left(s, 2) & ":" & mid(s, 3, 2) & s2     end if     if len(s) = 4         target.value = left(s, 1) & ":" & mid(s, 2, 2) & s2     end if     'the minutes inside input (545p | 0545p | 500p)     'always need 2 digits otherwise return     'other hour or smonthing 54:5 pm then... formta input is:     'hmma/p     'hhmma/p     'if want use 24h format need implementation application.enableevents = true end sub

tell me if need more.


Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more

android - Keyboard hides my half of edit-text and button below it even in scroll view -

i having trouble keyboard covers edit-text , half of button in scroll view. here's layout , please tell me how should resolve problem. many questions on topic none of them s working me. <?xml version="1.0" encoding="utf-8"?> <linearlayout xmlns:android="http://schemas.android.com/apk/res/android" android:layout_width="match_parent" android:background="@drawable/bg" android:layout_height="match_parent"> <scrollview android:layout_width="match_parent" android:fillviewport="true" android:layout_height="match_parent"> <relativelayout android:layout_width="match_parent" android:layout_height="wrap_content" android:orientation="vertical"> <linearlayout android:layout_width="match_parent" android:layout_height="w...
Read more